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Course Prerequisites EN 
Ar 


e SAP 50 (Basis Technology) 
e BC400 (ABAP Workbench: Concepts and Tools) 
e Recommended: 

m BC430 (ABAP Dictionary) 


m Alittle ABAP programming experience 
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Course Goal A 
PP 


This course will enable you to: 


e Understand the basic principles of the ABAP 
programming language 


Choose the appropriate ABAP programming 
technique to solve a particular problem 


Write and maintain your own ABAP programs 
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Course Objectives EN 
AP 


B At the conclusion of this course, you will be able to: 


Describe how the ABAP runtime system works 

Use ABAP statements and their syntax variants 
Create, test, compare, and classify ABAP programs 
Design, write, and modify your own ABAP programs 


Evaluate alternative programming solutions for data 
consistency, possible runtime errors, and the 
effectiveness of the modularization techniques they 
use 
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Course Content "y 
SAP 


Preface 


Course Overview Unit 7 Subroutines 


ABAP Runtime Unit 8 Function Groups and 
Environment Function Modules 


Data Objects, Types and Unit 9 Introduction to 
Statements ABAP Objects 


Global Types and Global Unit 10 Calling Programs and 
Constants Passing Data 


Control Statements Unit 11 Dynamic Programming 


Internal Tables 
The exercises and solutions are at the end of the relevant unit. 


Appendix 
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Main Business Scenario bay 
AP 


7 > >} e You will use the ABAP Workbench to develop 
simple busness applications. These are based on 
the tables, data, and ABAP Dictionary objects of 
the flight data model. In this course, you will only 
read the flight data. You will process the data in 
your programs, but the actual data in the 
database will not be changed. 


€ You will also use, analyze, copy, and modify 
existing Repository objects. 
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ABAP Runtime Environment cap d 
Mz m 


Contents 


€ Components of an ABAP program 


€ Processors within a work process 


€ ABAP programs: Types and execution methods 
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ABAP Runtime Environment Unit Objectives ENT 
AP 


= At the conclusion of this unit, you will be able to: 


Name the components of an ABAP program 
Describe how an ABAP program is organized 


@ Take technical aspects of program execution into 
account when you write an ABAP program 
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Overview: ABAP Runtime Environment ay 


ABAP program 
4) Operations 
I 1 


[ 
I 
LIT 101! 


Subroutine 
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| SET of an ABAP Program mp 
P» Structure of an ABAP program 
Concept of inactive sources 
Execution of an ABAP program 
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PROGRAM sapbc402 rund test. Application Help 
Verwendung 


TYPES ... 

DATA 

CLASS ... DEFINTION. 
TYPES ... Integration 
DATA 

ENDCLASS. 


CLASS ... IMPLEMENTATION. i x 
ENDCLASS. 

MODULE s 100 OUTPUT. 

ENDMODULE. 

INITIALIZATION. 

MES Object Favorites Utilities Settings System Help 
START-OF-SELECTION. | 

FORM calc USING RE 
CHANGING ... 


TYPES ... 
DATA 


ENDFORM. 
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An ABAP program contains the following components: 


Processing blocks... contain the ABAP statements 
Attributes 

... among other things, contain technical settings the system needs to execute the program. 

Screens... These consist of the screen layout and associated flow logic. You normally create the layout 
of a screen using the Screen Painter. However, there are special kinds of screens, called selection screens 
and lists, whose layout and flow logic are designed exclusively using ABAP statements. 
Interface... The interface contains all of the entries in the menus, the standard toolbar, the application 
toolbar, and function key settings. It contains titles and statuses. A status is a collection of function key 
settings and menus. 

Texts 

... are language specific. This means that all short texts and long texts can be translated. 
Documentation... is also language-specific. Always write documentation from the user's point of view. 
If you want to document the programming techniques you have used, use comments in the program code 
instead. 
Variants 

... Store predefined input fields on program selection screens. 
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Structure of an ABAP program ENT 
DAT" 


PROGRAM sapbc402 rund test. 
TYPES 
DATA 


- CLASS ... DEFINTION. 
Global declarations TYPES ... 
= DATA com 


ENDCLASS. 
CLASS ... IMPLEMENTATION. 


Dialog module apicibus 
{ MODULE s 100 OUTPUT. 
ENDMODULE. 
INITIALIZATION. 
ERE ee { START-OF-SELECTION. 


FORM calc USING SR 
CHANGING ... 


Procedure TYPES 


DATA 


ENDFORM. 
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The ABAP programming language is event-driven, and so is suited to processing user dialogs. The source 
code of an ABAP program can be divided into two parts: 
* Global declarations 
The statements that declare global data types, global objects, and selection screens, as well as local 
program classes and interfaces. 
Processing Blocks (program units that cannot be further divided or nested) 
You must write processing blocks as a single unit. There are two types of processing blocks: 
- Event blocks: 
An event block is introduced by an event keyword. It ends when the next processing block starts. 
- Dialog modules and procedures 
A modularization block is introduced and concluded using the relevant keywords. 
The collection of all processing blocks is known as the processing logic. 
When you generate the program, the system compiles the processing logic into the relevant runtime 
objects (load version of the program). The load version of the program is interpreted at runtime. 
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Workbench Edit Goto Extras  Environmsgstem Help 


Object name 

ij SAPMZ402 RUND TEST 
[ Dictionary structures 
[| CO fields 
[I PBO modules 


[| [7] PAI modules 
[ Subroutines 


I [2 Screens 
[ GUI statuses 


GUI titles 
Transactions 
=] Includes 


MZ402 RUND TESTTOP 
MZ402 RUND TESTOO1 
MZ402 RUND TESTIO1 

MZ402 RUND TESTF01 
MZ402 RUND TESTEO1 
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m In the simplest cases, all the source code is entered in one single program. To make your programs 
clearer, and to maintain and transport different parts of the source code separately, you should use 
include programs. 

m When you create a program from the Object Navigator, the system suggests that you create a TOP 
include for the program. This option is particularly advisable if you are creating module pools. 


m When you create a processing block, the system always asks for the include program in which it should 
insert the relevant ABAP code. 

m If the include program does not exist, the system creates it and inserts an INCLUDE statement for it in 
the main program. 

m If you name your module pool according to the naming convention SAPMY |Z«rem name> and then 
create a new processing block, the system proposes the name of the new include using the following 
convention: 

MY|Z«rem name»«abbrev»«num». 

m When you create further processing blocks, the system automatically proposes the appropriate include 

program. 

In this way, the system helps you to create programs whose structures are easy to understand. 

It is much easier for you to find your way around other developers' programs if they comply with these 
naming conventions. 
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Overview - Concept of Inactive Sources 


Execution of an ABAP program 
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Developed Version ERU 
— : PIT. 


R/3 Repository 


Developed version 


ABAP program 


| Display program Screen 
objects 
Texts 
Interface 
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In principle, development objects are stored in the R/3 Repository as they are developed. These are the only 
versions that can be displayed in the ABAP Workbench. 
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1.10 


Generated Version ER 


R/3 Repository 


ABAP program: 
runtime objects 


ABAP program 


ABAP runtime system 


interprets 
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When a development object is generated, a runtime version of it is created (that is, compiled). 
This can then be executed (that is, interpreted). The system generates the object automatically. However, 
generation can also be explicitly triggered. 
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If you change a development object and then save it, the system creates an active version and an inactive 
version. If necessary, you can switch between displaying each of these two versions. 

However, you can only edit the inactive version. The syntax check is carried out on the developed version, 
not the generated version. This means that it can be performed on the inactive version. When running the 
source code for executable programs that are started from the Editor, the system goes back to the inactive 
version. A generated version is created temporarily. In all other cases, the system always accesses the 
active version when the program is generated. 

This allows you to continue developing, without changing the current system status. Development objects 
are only visible throughout the system after they have been activated. 

The introduction of inactive sources offers developers a local, separate view of the R/3 Repository and 
builds the foundations for a "local runtime system." 

You can test changes to development objects in such a system, without causing any problems in the 
environment. 
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Cy 
DEN 


R/3 Repository 
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S 


Object Navigator 
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Activation involves: 
1)EXT the contents of the tool area ABAP program 


2 ABLE of all selected objects source code 
DLC: the newly activated program 
objects in the active version Screen 


4) REEE the modifi ject 
NENE NON the modified program objects 
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m The system lists all inactive objects in your worklist. The following steps occur when you activate an 
object (or several objects): 
* The object is saved - that is; a new inactive version is created. 
* The system performs a syntax check. 
* It then overwrites the current active version. The previously inactive version is now the active version. 
There is no longer an inactive version. 
* The system creates a new runtime version. The LOAD is updated. 
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Structure of an ABAP program 


Concept of inactive sources 


Execution of an ABAP program 
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m The individual processing blocks are called in a predetermined sequence at runtime, regardless of the 
position in which they occur in the program. Once a processing block has been called, the statements 
within it are processed sequentially. 

* Event block 
If the system program or a user triggers an event, for which the corresponding event block has been 
written in the processing logic, that event block is processed. The program flow is controlled either by 
the system or the user. 


* Modularization unit 
When the system encounters a modularization unit call within a processing block, it calls the 
corresponding processing block. In this case, the programmer controls the program flow. 
W Assigning transaction codes 
To allow module pool to be executed, you must assign a transaction code to it. You can (but do not have 
to) assign a transaction code to an executable (type 1) program. 
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Executing a Dialog Transaction END 
AP 


1 — LOAD-OF-PROGRAM. 
y 


eR —— —? MODULE ... OUTPUT. 
«4————- ENDMODULE 


— —— P MODULE ... INPUT. 
ENDMODULE 


— > MODULE ... OUTPUT. 
4.————.- ENDMODULE 

— —— * MODULE ... INPUT. 

+ | ENDMODULE 
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Module programs are designed to provide a flexible layout for user dialogs, using screens. You must assign 
a dialog transaction to the module pool program, so that users can call it up directly. The following steps 
occur when you run a dialog transaction: 

* First, the system triggers the LOAD-OF-PROGRAM event. Once this event block has been 
executed, the ABAP processor passes control to the screen processor. 

* The screen processor processes the initial screen specified in the transaction definition. (The initial 
screen can be a selection screen (regardless of the program type). The PROCESS BEFORE 
OUTPUT event is triggered and control passes to the ABAP processor, which processes the first PBO 
module. 

* The ABAP processor executes the processing block and returns control to the screen processor. Once 
all PBO modules have been processed, the contents of any ABAP fields with 
identically named corresponding fields on the screen are transported to the relevant screen fields. 
Then the screen is displayed (screen contents, active title, active status). 

* Once the user has chosen a dialog function (such as ENTER), the contents of the screen fields are 
transported back to the corresponding identically-named fields in the ABAP program, and the 
processing blocks that belong to the PROCESS AFTER INPUT event are processed. The system 
then continues by processing the next screen. 

You can call additional selection screens using the CALL SELECTION- SCREEN statement. 
You can also use the statement LEAVE TO LIST-PROCESSING. This makes all of the list processing 
events available to you. 
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> START-OF-SELECTION. 


> END-OF-SELECTION. 
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Executable programs have two main characteristics: first, the fact that events are carried out in a fixed 
sequence, and second, that you can create the standard selection screen and several lists very simply. You 
can start executable (type 1) programs without using a transaction code. You can also run them in the 
background. You can, but need not, assign a report transaction to an executable program. 

The following steps occur when you run an executable program (also known as a report transaction): 

* First, the runtime system calls the LOAD-OF- PROGRAM event. 

* Then it calls the INITIALIZATION event. 

* It calls the standard selection screen, if it has been declared. 

* It calls the START-OF-SELECTION event. (This is the default event block. If you omit this event 
keyword, any statement that is not assigned to another processing block is treated as though it 
belonged to this block). 

e If you have attached a logical database to your program, the system triggers the GET «node» and 
GET «node» LATE events. 

* The END-OF-SELECTION event is triggered. 

You can call additional selection screens using the CALL SELECTION- SCREEN statement. 
You can also include screen processing (as in module pools) by using the CALL SCREEN statement. 
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Selection Screen Events | 


AT SELECTION-SCREEN 
OUTPUT. 


AT AT SELECTION-SCREEN. | SCREEN. 
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There are two events belonging to each selection screen: 
* The system triggers the AT SELECTION-SCREEN OUTPUT event before it displays the selection 
screen. 
* It triggers the AT SELECTION-SCREEN event after the user has triggered a dialog function (such 
as Enter). 
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List Processing Events ERU 
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| Y Y WRITE ... 
TextTextText WE e 
ES |? END-OF-PAGE. 
Res) 


TOP-OF-PAGE DURING 
= SELECTION. 


WRITE 
a: WRITE 


END- .END-OF-PAGE. | PAGE. 


^4 AT USER-COMMAND. 
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If you fill the list buffer of the basic list (using the WRITE, SKIP, and ULINE statements), two further 
events are triggered: At the beginning of each new page, the TOP-OF-PAGE event is triggered, and the 
END-OF-PAGE event is triggered at the end of each page. 

Once the END-OF- SELECTION event block has been processed, interactive list processing starts. The 
system displays the formatted basic list. The user can now trigger further events. 

* The function code PICK triggers the AT LINE-SELECTION event. (In standard list statuses, this 
function code is assigned to the <F2> key). This key has a fixed relationship with the user action of 
double clicking the left mouse button). 

If you fill the list buffer of the detail list (up to 20 levels) using the WRITE, SKIP, and ULINE 

statements, two further events are triggered: 

At the beginning of each new page, the TOP-OF-PAGE event is triggered, and the END-OF-PAGE 

event is triggered at the end of each page. Interactive list processing is started again. The system 

displays the formatted detail list, and so on. 

* Any other function codes that have not been "trapped" by the system trigger the event AT USER- 
COMMAND. 
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Non-Executable Programs ER 
AP" 


Function Builder Class Builder 


FUNCTION-POOL ... CLASS-POOL ... SUBROUTINE-POOL ... 


IDDYPES CE TYPES: ... TYPES: 
DATA UT DATA: DATA: 


FUNCTION ... CLASS ... FORM ... 
ENDFUNCTION. ENDCLASS. ENDFORM. 


INTERFACE 
ENDINTERFACE. 
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The following types of programs cannot be executed directly. Instead, they are used as containers for 
modularization units that you call from other programs. When you call one of these modularization units, 
the whole of its container program is always loaded as well. When the modularization unit is first called, 
the entire program is loaded. Further information about this is provided further on in the course. 
* Function group (type F) 
...contains function modules, local data declarations for the program, and screens. 
For further information, refer to the Function Groups and Function Modules unit). 
* [nterface pool 
... can contain a global interface and local program declarations. 
* Class pool 
... can contain a global class and local program declarations. 
* Subroutine pool 
... contains subroutines and, in some cases, local program declarations. 
Caution! Type S programs are obsolete and have been replaced by function groups. 
Include program cannot be directly executed: They can only be included as part of another program. They 
can contain any ABAP statements. These are then executed as if they were in the main program. This is 
why the relevant include programs are loaded together with the main programs. 
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The ABAP Runtime Environment: Ed 
Unit Summary SAP 


You are now able to: 


Name the components of an ABAP program 
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Describe how an ABAP program is organized 


Take technical aspects of program execution into 
account when you write an ABAP program 
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I» D AD, 


p — 


1-2 


Exercise 


Unit: ABAP Runtime Environment 
Topic: Creating Repository Objects 


At the conclusion of these exercises, you will be able to: 
e Create development classes 


e Create programs 


You are a developer for an airline consortium. Your task is to 
develop evaluation programs for several airlines. 


Program: ZBC402 iHi EDITOR 


Template: None 
Model solution: SAPBC402 RUNS EDITOR 


## stands for your (two-digit) group number. 


Create a development class and a program. Use the development class to group 
together your Repository objects. In accordance with good development practice, 
assign your objects to a change request as follows: 


1-2-1 
1-2-2 


iaa 
i24 


Create a development class (suggested name: ZBC402_##). 


Create an executable program without a TOP include (suggested name: 
ZBC402_## EDITOR). 


Get to know the Editor and Workbench settings. 
Create a simple list using your program. 


^ Recommendation: Always work with the Object Navigator tool. 

— This tool offers a variety of logical views of Repository objects in 
the form of hierarchical lists, which allows you to edit sub-objects of 
Repository objects simply. Use context menus, which offer you the 
Object Navigator to edit objects and sub-objects. 
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1.22ABAP Runtime Environment Solutions 


Unit: ABAP Runtime Environment 
Topic: Creating Repository Objects 


2Development class 


Attribute 


Development class 


ZBC402 ## 


Short text 


Person responsible 


BC402: group ## objects 


Software component HOME 
Application component CA 

3ABAP program 

3.2Attributes 
Attribute Value 
program SAPBC402 RUNS EDITOR 
Title Solution to Exercise 1 (ABAP Runtime Environment) 
Type Executable program 
Status Test program 
Application Basis (System) 
Development class BC402 
Fixed point arithmetic X 

3.3Text Symbols 
001 This is a simple list output. 

3.4 
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3.5Source code 


*& Report SAPBC402 RUNS EDITOR 


*& 


*& solution to exercise 1: ABAP runtime environment 


*& 


REPORT  sapbc402 runs editor. 


WRITE: / text-001. 
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e Elementary data objects 
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Data Objects, Types, and Statements: Pay 
Unit Objectives SAP 


= At the conclusion of this unit, you will be able to: 


Define local program types 


Perform calculations 


e 
@ Define elementary data objects and structures 
e 
@ 


Use automatic type conversion appropriately 


© SAP AG 1999 


(C) SAP AG BC402 2 


—— P 
= 


4) ABAP program 
Operations 


LL a Object 


| = 
= nS NN 


| 
CCCL] 
Subroutine Method 
C -— 
(os | | | un | 


© SAP AG 1999 


(C) SAP AG BC402 3 


Overview - Introduction 


Elementary data objects 


© SAP AG 1999 


(C) SAP AG BC402 4 


Definition of Data Objects END 
APT. 


^ 


User-defined Predefined ABAP 
types Types 


How is the type 
structured? 
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The type attributes * Predefined 


of the data object ABAP type 
must be fully 


* Length 
specified 


DATA: varname TYPE 


Global 
types in 
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m In general, data objects are defined using the DATA statement, as follows: After the name of the data 
object, fully specified type is assigned to it using the TYPE addition. The type is linked to the data object 
statically. It cannot be changed at runtime. 

m There are other syntax variants available (for historical reasons). Note however, that some of these 
historical variants are supported in ABAP Objects. For further information, refer to the keyword 
documentation for the DATA statement. 

m All types are based on predefined ABAP types, which are discussed in greater detail on the Predefined 
ABAP Types slide. Some of these ABAP types are fully specified and can be used themselves to type 
data objects. Others need to be modified to include the length, and in some cases the number of decimal 
places. These are the simplest examples of user-defined types. 

m You can create complex structured types of any level of complexity you want, based on elementary 
types. 

m Youcan also define types directly in the ABAP Dictionary. You can then use these global types in all 
appropriate Repository objects in the system. 
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Predefined ABAP Types SR 
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Data type Description Static length in | Attributes 
bytes 


Numeric types are split into: 


Integer * Rules for storage 
[Em * Value range 


* Arithmetic used 


Character types 


ssa) Sequence of digits B Character string operations 
(allowed for all types) 


La ] Date + date calculations 
Time + time calculations 


Hexadecimal 
[EE Hexidecimal code .. 65535 Operations on bits 


= 
ud 
D 
E 
9 
D 
© 
= 
[ra 


String/hexadecimal 


Sequence of characters, ae tr ei adjusts length 
Hexidecimal code 
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Variable 


m The following ABAP types are fully specified and can be used themselves to type data objects: d, t, i, 
f, string and xstring. A special feature of the string and xstring types is that their length is 
adjusted automatically at runtime. Thus, length is not a component of the type. 

m The following ABAP types are not fully specified, so you must extend them to include additional 
information before you use them to define data objects: 

* c,nand x: 
You must extend the type to include the length, which must be from 1 to 65535 characters. 
If you do not declare a length when you define a data object, the system assigns the default length of 
1. 

* p: 
You must extend the type to include the length, and number of decimal places if needed, which must 
be from 1 to 16 bytes. If you do not declare a length when you define this data object, the system 
assigns the default length of 8 bytes (that is, 15 digits) and 0 decimal places. 

m The type also contains information on how the data is stored, what range of values is allowed, what 
operations can be performed on the data, and what sort of arithmetic is used (if the data object is suitable 
for use in calculations). We will deal with this topic in greater detail later in this unit. 
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Global data objects: 
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m The extent to which data objects are visible depends on the context. For data objects defined using the 
DATA statement, the following rules apply: 
* [fthe DATA statement occurs between a FORM and ENDFORM statement, it defines a local data object 
in that subroutine. 
* Atall other points in the source code (with very few exceptions), the DATA statement defines a global 
data object, visible throughout the program. 
m Local objects obscure global data objects of the same name. 
m Data objects defined using the TABLES statement (that is, structures) are always global, even if this 
TABLES statement occurs between FORM and ENDFORM. 
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m If you use objects (that is, instances of ABAP Objects classes) in your program, you have other options 
for specifying the visibility of your data objects: 

* In object-oriented programming, data objects are known as attributes. The attributes are defined in the 
class (that is, the object type). Syntactically, the definition of the local program class begins with 
CLASS class_name DEFINITION and ends with ENDCLASS. If the DATA statement occurs 
between a CLASS and ENDCLASS statement, it defines an attribute of the class or object. There are 
two main types of visibility area: 

Private attributes are only visible within the object All the methods of the object can read and 
change the data. From outside the object, the attributes can only be accessed indirectly, if a method 
of the object has been created, that accesses the data. 

Public attributes are also visible outside the object 

Other visibility areas exist (protected attributes, class attributes). For more information, see the 
Introduction to ABAP Objects unit. 

* Ifthe DATA statement occurs between a METHOD and ENDMETHOD statement, it defines a local data 
object in that method. 

= Local objects obscure global data objects of the same name. 
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m The lifetime of data objects is linked to their visibility. The lifetime is also important for determining 
where exactly in the source code the DATA statement is to be implemented: 
* [fthe DATA statement occurs between a FORM and ENDFORM statement, it defines a local data object 
in that subroutine. The lifetime corresponds to the runtime of the subroutine. 
If it occurs between a METHOD and ENDMETHOD statement, it defines a local data object in that 
method. The lifetime corresponds to the runtime of the method. 
If the DATA statement is implemented between a CLASS and ENDCLASS statement, it defines an 
attribute of the class or object. The lifetime begins when the object is instantiated at runtime and ends 
when the last reference to the object ha been deleted. To find out more about the lifetime of objects, 
see the Introduction to ABAP Objects unit or the keyword documentation on the CLASS-DATA 
statement. 
At all other points in the source code (with very few exceptions), the DATA statement defines a global 
data object, visible throughout the program. The lifetime corresponds to the lifetime of the program. 
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m You use the TYPES statement to define your own data types. 
When defining c, n, or x types, you specify the length by entering the number of characters or digits in 
parentheses after the name. When defining p types, you specify the length by entering the number of 
bytes required in parentheses after the name. You specify the number of decimal places using the 
DECIMALS addition. The connection between the value range and the length of the type will be 
discussed in greater detail later in this chapter. 

m You define data objects using the DATA statement. You assign a type to this data object using the TYPE 
addition. This can either be a user-defined type or a completely specified predefined ABAP type. 

m When defining a data object, you can also construct a type implicitly: 
If some information is not available for one of these variants, the system adds this information using 
type-specific default values: 
* Default length for objects of type c, n, and x: 1 character 
* Default length for objects of type p: 8 bytes; default value for the number of decimal places: 0. 

m You cannot declare a length when defining STRING-type or XSTRING-type data objects. Instead the 
runtime system adjusts the length of the object as necessary. 
Thus, the following definition is complete: 
DATA vstring TYPE string. 
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Runtime Behavior: Initial Value and Start Value EH 


Definitions: 
TYPES: c type(3) TYPE c. 
DATA: gd charl TYPE c type, 


gd char2 TYPE c type VALUE 'AB'P 


counter type i. 


Start of lifetime 


gd charl - gd char2. 
ADD 1 TO counter. 


CLEAR gd carridl, 
gd carrid2, 
counter. 


Type-specific initial value 


ABAP runtime system 


ime 
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m There is an appropriate initial value assigned to every predefined ABAP type. To find out what these 
values are in each case, refer to the keyword documentation for the TYPES statement, variant 1, addition 
l. 

m An initial value is also assigned to every user-defined type. This value is determined by taking the initial 
value of the predefined ABAP type and the length (and number of decimal places) declared for the type. 

m When the system enters the validity area, the data objects are instantiated and filled with the initial value. 
This rule applies: 
* For all global data objects at the start of the program 
* For all private and public attributes, when instantiating an object 
* For all global data objects in a function group, when calling a function module belonging to that 

function group for the first time 

* For all local data objects, when calling a subroutine, a method, or a function module 

m If you assign a start value to the data object using the VALUE addition to the DATA statement, this start 
value overwrites the initial value. 

m Atruntime, you can restore the type-specific initial value to a variable using the CLEAR statement. You 
can query the status of this variable using the IS INITIAL comparison. For further information, refer 
to the keyword documentation for the CLEAR and IF statements. 


(C) SAP AG BC402 12 


4.13 


Runtime Behavior: Fields of Dynamic Length 


Definitions: 
DATA: gd string TYPE string. 


Start of validity | — 


gd string = 'ABCDEFGHIJKLMNOP'.|! ABCDEFGHIJKLMNOP |... 


CLEAR gd_string. | « » 


gd string = 'ABCD'. ABCD = 


Runtime system adjusts 
length as appropriate 
ABAP runtime system 


ime 
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m When entering the validity area, there is no need for the system to reserve memory for elementary data 
objects of variable length, that is for strings (STRING types) or byte sequences (XSTRING types). The 
necessary memory is only allocated once a value has been assigned to the variable. 

m CLEAR string deletes the content and restores the initial status, that is a string or byte sequence 
whose length equals zero. 

m The runtime system adjusts the length of the object as necessary at runtime. 

m You can trace the runtime behavior of the string in debugging mode (in terms of length), by displaying 
the string in the field view and then double clicking the string name to obtain a detailed view. 

m You can find out the length of the string at runtime using the STRLEN( string ) function. 
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4.15 


Integers and Integer Arithmetic 


DATA: max speed TYPE i VALUE 1. Length: 4 bytes 


Value rang [-2147483648; 2147483647] 


Integer arithmetic: all internal auxiliary fields are integer fields - 
interim results are rounded. 


intl = int2 DIV int3 + int4. 


int1 DIV 


Integer auxiliary variable 
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m When the system performs integer arithmetic, it always rounds to the nearest whole number. For 


example: 
DATA int TYPE i. int - 4 / 10. " result: O 
int = 5 / 10. " result: 1 
m Calculations performed using integer arithmetic are faster than calculations using fixed point or floating 
point arithmetic. 


m Youcan assign a start value to an integer variable using the VALUE addition to the DATA statement. 
Generally, you enter a numeric literal after VALUE. If you enter a digit in the form of a text literal 
(enclosed in apostrophes), the runtime system has to convert it. 

m For further information on calculations performed on integers, refer to the keyword documentation for 
the COMPUTE statement. 
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DATA: percentageN&}] TYPE p j|»xe EP VALUE '12.34'. 


Length in bytes: 
n bytes corresponds tq 
2n - 1 digits 


Number of decimal 
places 


1234,56 


Fixed point arithmetic: + 78,5 y 
like using paper and a pencil 1313,06 


Number 12,34 


Internal Permitted length: 1 to 16 bytes (1 to 31 digits) 
[o]4] [2/3] [4|D| representation Number of decimal places « number of digits 


(max. 15) 
half-byte C for + For example: Length 3 bytes, 2 decimal places 
D for - — Value range: [-999.99,+999.99] 


1 digit per Sign: 
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m The length of packed numbers is given in bytes. The connection between the value range and the length 
is determined from the internal representation: Each decimal digit is represented by a half-byte. The last 
byte is reserved for the sign. 

m The number of decimal places is defined using the DECIMALS addition. The maximum number of 
decimal places is either 15 or the length of the number minus 1 (that is, there must be at least one digit 
before the comma). 

m You can give the object a start value by assigning a decimal number as a text literal (that is, by using the 
VALUE addition to the DATA statement). Use the period symbol (.) as a separator. 

m Decimal point-aligned, fixed-point arithmetic 1s used for calculations. Packed numbers are thus well 
suited to business calculations, where the correct rounding for the specified number of decimal places is 
very important. The algorithm for this arithmetic is similar to using a pencil and paper. 

m In fixed-point arithmetic, the system always uses packed numbers of the maximum length for interim 
results. 

m In user dialogs, decimal numbers are formatted according to the settings in the user master record. 

m Youcan switch off fixed-point arithmetic in the program attributes. If you do, the DECIMALS addition 
when defining a packed number only affects the output of the number. Internally, all numbers are 
interpreted as integers, regardless of the position of the decimal point. The 
fixed-point arithmetic option 1s always selected by default. You should always accept this value and use 
packed numbers for business calculations. 


(C) SAP AG BC402 16 


4.17 


Floating Point Arithmetic EBD 
PI. 
ME] / 


1521254127 — Only 53 bits available | 


1 
= + — 
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0000 0000 io = 
015=1-2 +12 641-27 4127 427! +... 
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+... 

0,140625 Only for 
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m In contrast to packed numbers, floating-point numbers are represented using sums of binary fractions. 
Floating point numbers are also normalized, and both the exponent and the mantissa are stored in binary 
form. This representation complies with the IEEE norm for double precision floating-point numbers. The 
floating-point operations of the relevant processors are used for calculations. 

Since algorithms are converted to binary, inaccuracies can occur. The extent and effect of these 
inaccuracies are difficult to estimate. This means that floating point numbers are not suitable for 
business calculations, which generally need to be calculated "to the last penny", and for which legally 
stipulated rounding rules must be followed. 

Example: 

Suppose you want to calculate 7.7296 of 73050 and display the result accurate to two decimal places. 
The answer should be 5310.74 (73050 * 0.0727 = 5310.7735). However, the program returns the 


following: 
DATA: float TYPE f, pack TYPE p DECIMALS 2. 
float = 73050 * '0.0727'. " result: 5.3107349999999997E+03 


pack = float. WRITE pack. " result: 5310.73 

m You should therefore only use floating-point numbers for approximations. When you compare 
numbers, always use intervals, and always round at the end of your calculations. 

m The main advantage of floating-point numbers is the large range of values - that is, from 
2,2250738585072014E-308 to 1,7976931348623157E+308 including both positive and 
negative numbers and zero. In addition, you must use floating-point numbers for special aggregation 
functions of the SELECT statement. 
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4.18 


Summary: Recommendations for Using Numeric 
Data Types 


If you need this: Use this predefined ABAP type: 


Type i, since calculations using integer 


ECTS utor arithmetic are fastest 


Decimal numbers for 
business calculations 


Decimal numbers for 
rough calculations 
performed on very small 
or very large numbers 
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4.19 


Calculations: Syntax 
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m In ABAP, you can program arithmetic expressions nested to any depth. You must remember that 
parentheses and operators are keywords, and must therefore be preceded and followed by at least one 
space. 

m The ABAP runtime environment contains a range of functions for different data types. The opening 
parenthesis belongs to the functions name itself (and is therefore not separated from it by a space). The 
remaining elements of each expression must be separated by spaces. 

m The expressions are processed in normal algebraic sequence - parenthetical expressions, followed by 
functions, powers, multiplication and division, and finally, addition and subtraction. 

m The DIV (integer division) and MOD (remainder of a division) operators always return whole numbers. 

m There are four general categories of runtime error that can occur in calculations: 

* A field that should have been converted could not be interpreted as a number. 
* A number range is too small for a conversion, value assignment, or to store intermediate results. 
* You tried to divide by zero. 
* You passed an invalid argument to a built-in function 
(For example: .. log( -3 ) ...). 
m For further information, refer to the ABAP syntax documentation for the COMPUTE statement. 
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4.20 


Arithmetic on Mixed Expressions | ERU 
in ml 


Conversion in mixed expressions: 
Types Values 
r a b c 
¡ CT >>] 
p decimals 2 i i 
p decimals 3 
p decimals 2 
p decimals 3 
p 
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m An arithmetic expression may contain any data types that are convertible into each other and into the 
type of the result field. 

m The system converts all of the fields into one of the three numeric data types (i, p, or £), depending on 
the data types of the operands. The ABAP runtime system uses different arithmetic processors for each 
of the three data types. The system then performs the calculation and converts it into the data type of the 
result field. 

m This may mean that the same arithmetic expression leads to different results when performed on 
different combinations of data types. 
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4.21 


Arithmetic on Mixed Expressions ll ENT 
NL om 


Types 
r 
i 
Ip decimals 2 
Ip decimals 3 
p decimals 2 
p decimals 3 


i vr 


The data types of all the components combined determined the arithmetic of the 
whole expression 


Pis the default 

* [ramas only used if all the components are integers 

* [2I TIT O EAA Ais used whenever at least one component is a floating 
point number 


© SAP AG 1999 


m An arithmetic expression can also contain character-type data objects, provided it contains at least one 
number data type object. The values contained in these character-type objects are converted to numeric 
type objects. Bear in mind that conversions affect performance. Wherever possible, choose a data type 
that does not require runtime conversion. 

Note: 

The results of the following functions have the data type f: 

* Trigonometry functions: COS, ACOS, SIN, ASIN, TAN, ATAN 
* Hyperbolic functions: TANH, SINH, COSH 

* Exponential functions (base e): EXP 

* Natural logarithms (base e): LOG 

* Logarithms to base 10: LOG10 

* Square root: SORT 

m When the arithmetic expression contains numeric literals, the arithmetic used depends on the size of the 
number. If the number lies within the value range for data of type i, the literal is interpreted as an 
integer. If the value of the literal is greater than. 2147483647, it is interpreted as a packed number. 
DATA int TYPE i. int = 1000000000 / 300000000* 3. " result: 9 

int = 10000000000 / 3000000000 * 3. " result: 10 
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4.22 


Overview - Strings 


Introduction 
Elementary data objects 
Definition 


Numeric data objects 


NE" 

[introduction E 
[Elementary data objects UU 
EA 
[Numeric data objects 

D LIENS 
[Automatic type conversion a 
[Fixed-length data objects UU 
structures 


Automatic type conversion 
Fixed-length data objects 


Structures 
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4.23 


Predefined ABAP Types for Strings Ep 
PIT. 


Type t | Type d Type n | Type c Type string 


Variable- 
length char. 
string 


Sequence [ziii 


Time Date of digits [erry suis 


6 digits 8 digits 1 .. 65535 1.. 65535 
HHMMSS YYYYMMDD | characters | eile iss 


variable 


By clock By Gregorian| Digits Depends on codepage 
calender 


String operations 


Time Date 
arithmetic arithmetic 


[Based on 
values in user 
master record 
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m The value range of each string depends on the code page - a table containing all the supported characters. 
Internally, each character is represented by a code number. When the system outputs the character, it 
uses the code page to convert this number. To find the code page valid in a given system, choose Tools 
-> CCMS -> Spool -> Spool administration -> Full administration -> Character sets. 

m The initial of each character in a fixed-length string is a space character. 

m Numeric strings are represented internally as character strings. Note, however, that only digits are 
permissible as characters - when character strings are assigned to numeric strings, the system ignores 
letters and copies only the digits (right-aligned). Missing characters are filled with zeros. 

m The initial value of each character in a numeric string is a zero. 

m Only sequences of digits are valid for values of type d. These digits form a meaningful date, which 
complies with the Gregorian calendar. The first four digits represent the year, the next two the month 
and the last two the day. For performance reasons however, the object is only checked if it is an input 
field on a screen or selection screen. 

m The initial value of a date is "00000000". The formatting options are determined by the user settings. 

m For values of type t, a sequence of digits is only valid if it can be interpreted as a time on the 24-hour 
clock. The rules for interpreting the value are similar to those used for dates. 

m The initial value of a time is '000000'. 
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4.24 


Overview: Processing Strings EH 
SAP 


Meaning; Notes 


P iss sy-fdpos 


If successful: sy-£dpos = Position 
ABAP DR 


of character string found 


Replace all occurrences 
Move 


Remove Spaces 


Spaces are overwritten 
by characters from the second 
string 


(ARNES several strings 


ABAP > [AB] [AP] | Sa string 
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m You can use the following statements to process strings in ABAP: 


* SEARCH To search in a string. Note that there are special comparison operators for 
strings, which you can use in logical expressions to search more flexibly for character 
sequences in a string. For more information, see the keyword documentation for IF. 


* REPLACE To replace the first occurrence of a string 
* TRANSLATE To replace all specified characters 
* SHIFT To shift one character at a time 
e CONDENSE To remove spaces 
* OVERLAY To overlay two strings 
* CONCATENATE To chain two or more strings together 
* SPLIT To split a string 
m In all string operations, the operands are treated like type C fields, regardless of their actual field type. 
They are not converted. 
* All of the statements, apart from TRANSLATE and CONDENSE, set the system field SY- SUBRC. 
SEARCH also fills the system field SY-FDPOS with the offset of the beginning of the string found. 
* All ofthe statements apart from SEARCH are case-sensitive. 
* To find out the occupied length of a string, use the standard function STRLEN () . 
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4.25 


Date Fields Ep 
AIT 


Representation in Representation as integer: 


date format D Conversion Number of days since the 
(8 characters) 01.01.0001 
YYYYMMDD 


Y Gregorian calendar 


Used for string operations Used for date calculations: 
and output adding and subtracting days 


| 


Output: (10 characters) The user specifies the output 
DD.MM.YYYY | MM/DD/YYYY MM-DD-YYYY format (in the user master 
DD.MM.YYYY | MM/DD/YYYY MM-DD-YYYY record). 


DATA: datel Es E 
date2 TYPE syst-datumk 
START-OF-SELECTION. 
datel = date2 = sy-datum. 
WRITE: datel DD/MM/YYYY, "or other formatting options ... 


date2. "formatting options not necessary 
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m You can add or subtract a number of days by including the date field in an arithmetic expression. 

PARAMETERS: datel TYPE d DEFAULT sy-datum, 

number of days type i. 
datel = datel + number of days. 
Internally, the date field is converted to an integer (corresponding to the number of days since the 
01.01.0001) using the Gregorian calendar. The system then adds number of days and converts the 
result back to a date using the Gregorian calendar. 

m Ifa date field is assigned to a numeric field, the runtime system calculates the number of days since 
01.01.0001. 

m Conversely, if a numeric value is assigned to a date field, the numeric value is interpreted as the number 
of days since 01.01.0001 and then converted to a date using the Gregorian calendar. 

m Note that you must enter the date as a text literal, as your start value for a date field (in the VALUE 
addition of the DATA statement). This is because number literals are of the type integer (that is, the 
number of days since 01.01.0001). 

m The procedure is similar for performing operations on time fields except that, in this case, the integer 
represents the number of seconds since 0:00:00. 
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4.26 


Overview - Automatic type conversion 


Introduction 
Elementary data objects 
Definition 


Numeric data objects 


<> 

[introduction E 
[Elementary data objects UU 
[Definition 

[Numeric data objects a 

[Strings 

D utomatic type conversion 
[Fixed-length data objects UU 
structures 


Automatic type conversion 
Fixed-length data objects 


Structures 
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4.27 


Assigning Values cap d 
AP 


the same type if possible (identical techical type 
properties). 


| F When you assign values, both fields should have : 


DATA: a TYPE elementary type, 
b(c long enough) TYPE c. 
a R b [ additions 1- [ additions ] 
You can use the same 
additions as in the WRITE 


Type of a Format without additions 


According to settings in user master record 
HH:MM:SS 
According to settings in user master record 
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m You can copy the value in one field to a compatibly-typed data object in two different ways: 
* MOVE source TO target. 
* target - source. 

m Youcan copy the (formatted) value of the data object source to a target field target of type c. 
WRITE source TO target. 
Note that the target field must be long enough to include separators 
Example: 
source is a date field containing the value ' 20001112" and the format is set to MM/DD/YYYY in the 
user settings. target is of type c and has a length of 10. After the (formatted) value has been assigned 
to target, its content is: '11/12/2000'. 

m The rules governing the output of a field in a list using the WRITE ... statement are the same 
as those governing the assignment of a value using WRITE ... TO. To find out which additions you 
can use, refer to the keyword documentation for the WRITE statement. 
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4.28 


Automatic Type Conversion when Assigning Values Py 
DIN 


Value assignment with automatic type conversion, where fields are of different 
types 


Internal 
representation 


»(3) [ojo] [1[2 B 


Type Internal representation 
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m Data objects of different types are generally represented differently internally. Consequently, the value 
in the source object must be converted to the type of the target object before it is assigned. 

m There are conversion rules for most data types. If so, the value is converted automatically before it is 
assigned. Otherwise, a runtime error occurs. For further information, refer to the ABAP syntax 
documentation for the MOVE statement. 

m Values in logical expressions must also be converted whenever the components involved have different 
types. For detailed information on the rules governing logical expressions, refer to the keyword 
documentation for the IF statement. 

m Automatic type conversion is very user-friendly and adds to the program's robustness. Bear in mind 
however, that every conversion increases runtime. Avoid unnecessary conversions by ensuring that 
fields with the same meaning are given the same type. 
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4.29 


Introduction 
Elementary data objects 
Definition 


Numeric data objects 


Automatic type conversion 


y 

Introduction 
[Elementary data objects 
Definition 
Numeric data objects a 
stings 
[Automatic type conversion a 
P» EXE 
structures 


Fixed-length data objects 


Structures 
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4.30 


ee CC 
Mz ni 


statement literal 


Numeric literals: Type i or p 


Positive integers: 123 
Negative integers: -123 


literal 


Text literals: Type c 

Strings: 'abcde' 

Decimal numbers: '123.45' 

Floating point numbers: '123.45E01' 
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You use literals to pass values to ABAP statements directly. There are two sorts of literals: 


* Numeric literals 
These can contain up to 31 digits plus a sign and have the type i or p. Remember the value 


ranges! 

Example: 

DATA: resultl TYPE i, result2 LIKE resultl. 

resultl = -1000000000 / 300 * 3. "resultl: 999.999- 
result2 = -10000000000 / 300 * 3. "result2: 10.000.000- 


* Text literals 
These are enclosed in apostrophes and can contain up to 255 characters. 
If a text literal contains a quotation mark, you must double it in order for it to be interpreted as 
part of the literal (and not as the closing quotation mark). 
Integers (with a preceding minus sign where required) can be represented as numeric literals. All other 
values (decimal and floating-point numbers, strings, and so on), must be represented as text literals. The 
system converts types automatically where necessary. 
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4.31 


LI NEN" 
e'm m 


User-defined types: Predefined 
ABAP types 


= 
LI NN 


¡0-4 a] const name TYPE 


VALUE literal. 


Data element 


L I BEN Structure field 
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m The value of a constant cannot be changed at runtime 

m You define constants using the CONSTANTS statement. You must use the VALUE addition in the 
CONSTANTS statement. It is here that you specify the value of the constant. If you want to define a 
constant with an appropriately typed initial value, use a statement like the following: 
CONSTANTS const name TYPE type VALUE IS INITIAL. 

m Recommendation: 
Avoid literals as much as possible in your programs. 
If you use constants instead, your programs will be easier to maintain. 
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4.32 


Text Symbols 


* language independent: 
kkkkkkkkkkkkkkkkkkkkkkk 


WRITE 'Hello World!'. 


* depends on chosen language: | 
kkk k kkk kkk RRA RRA ARA RARA 


DE Hallo Welt! 
WRITE 'Hello World!' (ts1) . EN Hallo wordt 


* or ES jHola mundo! 


WRITE fe 44. 


DE Wie geht's? 
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m Text symbols are a special form of text literals. 

m You can define a set of text symbols for any program using Text element maintenance. These can be 
used for output in various ways. The advantage of text symbols over normal text literals is that they can 
be translated. In addition, texts defined in this way are stored separately from the source code of the 
program. 

m Text symbols are often used to create lists that are not language-specific. You should also use them to 
assign texts dynamically to screen elements (short texts for pushbuttons). (Static text elements for 
screen elements can be translated separately). 

m Youcan display text symbols in two different ways, using the WRITE statement: 

WRITE text-<ts1>. (where <ts1> can be any three-character ID). 

WRITE 'defaulttext' (ts2). (where <ts2> can be any three-character ID). 

In this case, <ts2> is displayed if there is a text for it in the current logon language. If there is not, the 
default text is displayed. 
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4.34 


Definition of Structures EDT 
Sz m 


Definition of a Structure Type --- 


Ix aes name type, 


prename(25) TYPE c, 
surname(25) TYPE c, . Definition of a structure with 
title(5) TYPE c, an implicit type construction 


[END OF s name type. 


BEGIN OF s name, 


Definition of a structure with prename(25) TYPE c, 
reference to a user-defined type surname(25) TYPE c 
, 


DATA: | title(5) TYPE c, 


START-OF-SELECTION. 
s nameBprename 'Smith'. 
s namegsurname 'John'. 
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m Youcan define structures in two ways: 

* First, define a structure type explicitly using the TYPES statement. 
To do this, enter the name of the structure after BEGIN OF and then list the definitions of all the 
components. End the definition of the structure type using END OF. 
You then define the structured data object with the DATA statement, using your own user-defined 
structure type. 
Define the data object directly using the DATA statement. The syntax is similar to the definition of a 
structure type. If you use this option, the corresponding structure type 1s defined implicitly at the same 
time. 
m You address components of structures using: 

Structure name-comp name. 

For this reason, you should not use hyphens in variable names. 
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4.35 


Definition of Nested Structures ay 
SPP 


Structured type; 


BEGIN OF s name type 

prename (25) TYPE e, s name type 
surname (25) TYPE c, forename 
title(5) TYPE c, surname 
END OF s name type. 


Nested structure 


BEGIN OF s address nested, 
name s name type 
phone n(15) TYPE n, forename 
email (25) TYPE c, surname 

END OF s address nested. title 


phone number 


s address nested 
name 


S address nes ted name Asurname 
“Smith”: 


s address nestedBtelefon = Used to create 
1123456789" logical subgroups of data 
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m You can define nested structures by assigning a structure type to a component within a structure type. 

m Youcan address this sub-structure as a whole using the component name: 
structure name-substructure name. 

m Youcan also address individual components in the sub-structure: 
structure name-substructure name-comp name. 

m Structures can be nested to any depth. 

m Youcan also integrate components of a dynamic type in a structure. This can either be an elementary 
data object of variable length (string or xstring) or an internal table. These structures are known as 
deep structures. 

m There are constraints on how such deep structures can be used. For instance, a deep structure cannot be 
used as a whole in the INTO clause of a SELECT statement. (Instead, each component must be listed 
separately). Offset operations do not make sense in this context. For more information, refer to SAP 
Note 176337. 
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4.36 


Using Named Includes Sup 
AP 


Structured type} 
BEGIN OF s name type 
prename (25) TYPE c, s name type 
surname (25) TYPE c, forename  : 
title(5) TYPE c, surname | 


END OF s name type. une 


! DATA 
BEGIN OF s address. 


s address nested 
NOA ARONA S name type = 
AS a = forename 
p surname > name 


DATA: title 
telefon(15) TYPE n, phone number 
email(25) TYPE c, i 

END OF s address. 


s addressBnameBsurname 'Smith'. 
* or: Used: 
s addres sBsurname = 'Smith'. when you want to create a logical 
T subgroup, but where nested 
structures are technically not possible 
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m [n some cases, you cannot use nested structures, for example: 
* ... Because you can only define database tables with flat line types 
* ... In situations where user dialogs with a tabular representation can only contain simple structures 
( such as in the SAP List Viewer or Table Control) 
m In situations like these, you may still want to group parts of the structure and address it as a whole. You 
do this using named includes. 
* Youcan include a substructure in another structure, and give this substructure a name: 
DATA: BEGIN OF structure name, 


INCLUDE STRUCTURE substructure type AS name. 
DATA: os 7 
END OF structure name. 

* You can address this sub-structure as a whole using structure name-name. You can address the 
fields in the substructure using structure name-name-comp name or directly, using 
structure name-comp name. Technically, however, this structure is still "flat", not complex. 

* [f naming conflicts occur - for example, if you want to include the same substructure twice - you can 
append another name to the component names using RENAMING. For further information, refer to the 
keyword documentation for the INCLUDE STRUCTURE statement. 
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4.37 


Value Assignments Using Compatibly-Typed cap d 
Structures SAP 


! TYPES: 
; BEGIN OF s name type 
prename(25) TYPE c, 


: s name type 
| surname (25) TYPE c, 


forename 


i surname 
title(5) TYPE c, 


END OF s name type. 


s address nested 
name 


DATA: 


surname 
telefon(15) TYPE n, title 


email(25) TYPE c, phone number 
END OF s address nested. email 


' BEGIN OF s address nested, 
i = a forename 
i name TYPE s name type/ 


wa name 


¡DATA wa name TYPE s name type/ forename 
EN = E surname 


title 


s address nested-name Structures assigned to each other should 
EX] wa name. have the same type where possible. 
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m If you want to assign the contents of structures to other structures, they should be of the same type 
wherever possible, so that the system does not have to convert values automatically before assigning 
them. The same applies to substructures. 

m Ifthe components of two structures are type compatible, but their component names are different, these 
two structures are still type-compatible as a whole. 

m The contents of flat structures (where all the components are of fixed-length) can also be assigned to 
incompatible structures. However, errors may occur. The differences are dealt with in the slides 
Assignments for String Structures and The Dangers of Assigning Incompatible Structures. 

m However, the contents of a deep structure can only be assigned to a compatibly typed structure. 
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4.38 


Value Assignments in String Structures ER 
AP 


If all the fields have the 
type String, you can also 
assign incompatible 
structures to each other. 


Example: date fields 


PARAMETERS p date LIKE sy-datum DEFAULT sy-datum. 
DATA: BEGIN OF s date, 

year(4) TYPE n, 

month(2) TYPE n, 

day (2) TYPE n, 

END OF s date. 

MOVE p date TO s date. 
S date-day = '01'. 
MOVE s date TO p date. 
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m [fall the components of a structure are of a string type, of fixed length, you can assign components with 
different properties to them. Each character is then copied byte-by-byte without being converted. This 
approach is used, for example, to extract the day or month from a date field. 

* That is, a structure is created, such that the first four characters of a variable specify the year, the next 
two specify the month, and the last two the day. If a date is assigned to this structure using the MOVE 
statement, the characters are then copied left aligned. You can then determine the year, month, and 
day directly using the variables, without having to use offsets. 

m For compatibility, assignments between incompatible structures are also allowed, if they contain 
numeric or hexadecimal components. The structure is then technically considered to be a string (that is, 
casting of the structure occurs). The contents are not converted. Between the structures, the same 
conversion rules apply as for strings: the bytes are copied, left aligned. If the target structure is longer 
than the source structure, the target structure is filled with spaces, regardless of the component type of 
the target structure. 

m In conclusion, avoid assigning incompatible structures wherever possible, except where both structures 
consist entirely of fixed-length string-type fields. 
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4.39 


Dangers of Assigning Values Between E 
Incompatible Structures SAP 
| E = Field does not 
have a string type 


DATA: BEGIN OF [Ee 7 
textl(3) TYPE c 'AAA', 
text2 (4) TYPE c 'BBCC', 
pack (8) TYPE p DECIMALS 2 12-2067 
text3(10) TYPE c 'DD', 
END OF recl, 


BEGIN OF rec2} 
textl(5) TYPE c VALUE 'YYYYY', 
pack(8) TYPE p DECIMALS 2 VALUE '72.34', 
text3(1) TYPE c VALUE 'Z', 
END OF rec2. 


MOVE recl TO rec21] 


reci text1 text2 pack text3 


AAA BCC | 0000000000002.26 DD VA 
rec2 text1 pack text3 rec2 text1 pack ^ — text3 


YYYYY | 0000000000072.34 | Z AAABB C277, Y |? 
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m The ABAP runtime environment has rules for assigning: 
* Flat structures to non-compatible structures 
* Elementary fields to flat structures 
* Flat structures to elementary fields 

m In each of these cases, the system fills the target structure byte-by-byte from the left. If the target 
structure is longer than the source structure, the latter 1s filled with spaces. 

m Ifthe source structure contains numeric fields, values that cannot be interpreted may result in the target 
structure, unless the number of string characters in front of the numeric field is identical. Moreover, 
target structures containing integer components may cause problems: if the source structure contains an 
integer field (that is, a field four bytes long), but the number of bytes in front of the integer field is not 
divisible by four, these bytes will be filled with zeros until the integer address is divisible by four. 

m To avoid this, copy the values component-by-component in these situations. The conversion rules for 
data objects then apply. 

m You should only use offset addressing on structures if all of the fields in the structure have a string type 
and all have a fixed length. 
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4.40 


Assigning Values to Identically-Named Structure p 
Components SAP 


TYPES: 
name type(25) TYPE c, 
title type(5) TYPE c, 
email type(35) TYPE c. 
DATA: 


BEGIN OF s name, 
prename TYPE name type, MOVE: s name-prename TO 
surname TYPE name type, S address-prename, 
title TYPE title type, S name-surname TO 
END OF s name. S address-surname, 


DATA: Ss name-title TO 
BEGIN OF s address, Ss address-title. 
prename TYPE name type, 
surname TYPE name type, 
title TYPE title type, 
email TYPE email type, 


END OF s address. interpreted internally as an 


assignment using 


MOVE-CORRESPONDING Sibi aee » A 
s name fio] s address. icenticauy-nameo recs 
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m You can copy the contents of a source structure to a target structure component by component, using a 
MOVE-CORRESPONDING statement. The system then copies each source field to the target field with 
the same name. The conversion rules for elementary data objects then apply. 

m Note that the system does not check that identically named components have the same type. This can be 
useful, but there are dangers involved. 
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4.41 


Data Objects, Types, and Statements: Unit ER 
Summary M 
Eh] You are now able to: 


e Define local program types 
e Define elementary data objects and structures 


@ Perform calculations 


€ Use automatic type conversion appropriately 
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4.42 Optional Exercise 


Unit: Data Objects, Types, and Statements 
Topic: Numeric Data Types 


At the conclusion of these exercises, you will be able to: 
e Create data objects with numeric types 


e Perform calculations with numeric data types 


Create three programs to demonstrate the effects of the following 
operations on the three numeric data types (one data type for each 

9) program): addition (+), subtraction (—), division (/), 
multiplication (*), integer division (DIV), modulus (remainder of 
integer division) (MOD), and powers (**). 


>» | Programs: ZBC402 ## DOS EX1, 
ZBC402 HH DOS EX2, 
l | Í Í | | | ZBC402 ff DOS EX3 
Template: None 
Model solutions: SAPBC402 DOSS EXERCISE 1A, 


SAPBC402 DOSS EXERCISE 1B, 
SAPBC402 DOSS EXERCISE 1C 


where ## is your group number 


1-1 Create a program with the name ZBC402 ## DOS EX1. This program will test the 
effect of the above arithmetic operations for integer variables. 
Your program should have a selection screen so that the user can enter two values. The 
system should then perform the calculations on both values and display the results in a 
list. Create a separate line in the list for each calculation. In each case, display the two 
values, the operator used, and the result. 


When creating your list, use the following example as a guide: 
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Graphic 1: Displaying a list 


Calculating integer numbers 


Operand 1 - E 
Operand 2 = 1 


2 

2t 1 = 
ge eJ 1 = 
2: E 1 = 
2 div 1 = 
2 mod 1 = 


2. E 1 = 


r2 © MN NY NN F C 


Follow the detailed instructions below: 
1-1-1 Create a program in the Object Navigator. 
Name ZBC402 ## DOS EX1 


Type Executable program 


Application Basis (System) 


Development class ZBC402 ## 


1-1-2 Declare two parameters and a results field (as a normal variable) for the two 
operands. Give each data object the type i (we suggest the following names for 
the data objects: p valuel, p value2, result). 


1-1-3 Perform the calculations in the START-OF-SELECTION event block. After 
the calculation has been performed, display the result in the list. 


Create a program with the name ZBC402 ## DOS EX2. This program will test the 
effect of the above arithmetic operations for packed numbers. Again, follow the 
detailed instructions below: 


1-2-1 Copy your program ZBC402 ## DOS EX1(or use the model solution from 
Exercise 1-1, SAPBC402 DOSS EXERCISE 1A) and give it the name 
ZBC402 ## DOS EX2. 


1-2-2 Change your program so that it performs the calculations on data objects of 
type p. Test your program. 


1-2-3 Use packed numbers with decimal places. Test your program again. What do 
you observe? 


1-2-4 Remove the Fixed-point arithmetic attribute in the program attributes. Test your 
program. What do you observe? 


1-2-5 Now check the Fixed-point arithmetic attribute back on in the program 
attributes. Observe what happens when you change the data type of one of the 
data objects involved. 
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1-3 Create a program with the name ZBC402 ## DOS EX2. This program will test the 
effect of the above arithmetic operations for floating point numbers. Again, follow the 
detailed instructions below: 


1.3.1 Copy your program ZBC402 ## DOS EX2(or use the model solution from 
Exercise 1-2, SAPBC402 DOSS EXERCISE 1B)and give it the name 
ZBC402_## DOS EX3. 


1.3.2 Change your program so that it performs the calculations using 
floating-point arithmetic. 


1.3.3 What do you observe concerning the two parameters? 


OPTIONAL: 


1-4 Use color to highlight the output length of the data objects in the list, using the 


FORMAT COLOR ... statement. 
LA. Note that you can also use the COLOR addition when 
zm Z displaying individual fields with the WRITE statement. For 


more details, refer to the keyword documentation for the 
WRITE statement (in the Output Formats for Fields section). 


(C) SAP AG BC402 44 


»»» 


p — 


Exercise 2 


Unit: Data Objects, Types, and Statements 
Topic: Defining Data Types, Data Objects, 
Basic Statements, 
and Processing Strings 
At the conclusion of these exercises, you will be able to: 
* Define local program structure types 
* Define elementary and complex data objects 
e Split strings 
* Use conversion rules 


* Display the contents of data objects in lists 


In the next few exercises (including this one), you will work 


through the following scenario step by step: 


Several data records will be passed to your program, in the form 
of a long string. Your task is to extract the data from the string 
and process it further in the correct data format. 


To simplify this scenario: 


Passing the data as a string should be as simple as possible. In 
these exercises, therefore, you will read the string using a 
function module that you call in your program. In practice, 
you could implement this function using data stored in a 
sequential file (by means of a data transfer from an internal 
system). 


Further processing will be limited to displaying the data in a 
list. In practice, you would store the extracted data in the 
database connected to the R/3 System (that is, you would 
update the SAP System). 


You will edit the entire scenario step by step, working 
through each part of the exercise according to the objectives 
of each unit. 


In this first exercise, you should create a program that receives 
the string; splits it into its components; and displays it in a 
structured form. 


Program: ZBC402 ## DATA SET 


Template: SAPBC402 DTST TEMPLATE 


Model solution: SAPBC402 DTSS DATA SET 
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2-] 


2-2 


2-3 


## stands for your (two-digit) group number. 


Copy the program, SAPBC402 DTST TEMPLATE, giving it the name 
ZBC402_## DATA SET. 


Read the string containing the data you will be extracting into a data object in your 
program. Use the function module BC402 CREATE SEP STRING. Follow the 
instructions below: 


2-2-1 Become familiar with the interface for the function module 
BC402 CREATE SEP STRING. This function module uses interface 
parameters to generate a string from the data of a database table. You can use 
the function module interface to affect: 


- The number of table entries to be read to make up the string (im number). 


- The name of the table from which the system is to review the data 
(im table name). 


- The separator for each individual field in the data record 
(im separator). 


- You can also specify whether the string should allow duplicates or whether 
all entries should be unique (im unique). 


S ^. (1) You should not change any of the function module 

— IMPORT parameters in the first two exercises. Instead, use 
the default value for each IMPORT parameter. 
(2) The function module uses the separator (#) to separate 
the fields of a data record. Each data record itself is then 
separated by a double separator. 


V7 


2-2-2 Define a data object in which the string from the function module will be 
stored. (We suggest the name datastring, data type: string). 


2-2-3 Call the function module BC402 CREATE SEP STRING in the START- 
OF-SELECTION processing block. Use the default value for each IMPORT 
parameter. If the function module raises an exception, your program should 
return the termination message 038 from message class BC402. 


As a first step, split the string and place the various pieces into your (field) 
components. Use a structure consisting of fields with the type character. Each field of 
the structure must be the same length as the corresponding component in the structure. 


2-3-] Familiarize yourself with the string structure. Use the Debugger to do this, or 
display your string in a list (WRITE ...),or both. 


Note: The string contains a data record with flight data. 
2-3-2 Define: 
(a) a structure type (suggested name: st flight c) 


(b) a structure (suggested name wa flight c).Give each of them the type 
St flight c. 
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2-4 


The structure type should contain the following components: 


Component Length 


= 

< 

© 
e 


mandt 
carrid 
connid 
fldate 
price 


(!) 
currency 
planetype 
seatsmax 
seatsocc 
paymentsum 


Q0|(3|29/.0|0/|0|3|58/0|Q 
N 
n| ol Of OC] MH] oj cof wW] ww 


Do} Rl Rt be 
H F H 


Why must the price component have type c? 


2-3-3 When you analyzed the string you should have observed that the data record 
that is to be filtered out of the string is enclosed by separators. To split the 
string for the data record (without separators), you need an auxiliary variable, 
which you should define with the type string.(We suggest the name 
set string). 


2-3-4 First, get rid of the two separators from the string. Then copy the data record 
(from the first component to the double separator) to your auxiliary variable 
set string. Then split the contents of this auxiliary variable, using the 
separator, and store it in the structure wa flight c. 


Nd ^ Use the chain operations SHIFT, SEARCH and SPLIT. Find out 

= — more about the exact syntax of these statements in the relevant 
keyword documentation. (Select the keyword and choose F1). Bear 
in mind that you can also access components in a string using 
offset/length addressing in the MOVE statement. Use the system field 
sy-fdpos to do this. 


2-3-5 Display the fields of your structure, wa sflight c,ina list. 


In Exercise 2-3-5, you should have observed that the program displayed some of the 
fields without formatting — for example, the PRICE field. You will change this in the 
next section of the exercise. 

To do this, convert the data you have extracted by copying them to data objects with 


suitable types. You should create the target fields as components of a structure. Ignore 
the client and payment sum in the following section of the exercise. Follow the detailed 


instructions below: 


= L ^. The type of each target field determines its format when 


= — displayed. If you assign a source field to a target field of a 
different type the runtime system converts it. 


2-4-1 Define: 
(a) a structure type (suggested name: st_flight) 
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2-4-2 


2-4-3 


2-4-4 


(b) a structure (suggested name wa flight). Give each of them the type 
SEIT gh 


The structure type should contain the following components: 


Component Type Length Decimal places 
carrid [e 3 

connid n 4 

fldate d predefined 

price P (!) 9 2 
currency c 5 

planetype lc 10 

seatsmax i predefined 

seatsocc i predefined 


Copy the identically named components of the character-type structure 
wa flight cto the fields of the structure wa flight. Note the conversion 
rule used by the system for the price component. 


Display the contents of the structure wa flight in a list. Use the appropriate 
formatting options for the WRITE statement for the £1date and price 
components. 


If you did not use the template, you should now create a list header. Choose 
System List —List Header). Use the list design from the model solution 
SAPBC402 DTSS DATA SET as a guide. 
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4.43Optional Exercise Solutions 


Unit: Data Objects, Types, and Statements 


Topic: Numeric Data Types 


SFirst ABAP program: 


PARAMETERS: 


p valuel 


p value2 


DATA: 


result 


TYPE i DEFAULT 5, 
TYPE i DEFAULT 3. 


TYPE i. 


START-OF-SEL 


WRITE: 


SKIP 1. 


WRITE: 


Tex! 


REPORT  sapbc402 dtss calc i. 


" input variable 1 


" input variable 2 


" result variable 


«-- 'calculate with integer data' 


t-002, p valuel, 


Tex! 


EN: 
OWN. 


EN . 
GN. 


t-003, p value2. 


"operand 1 


'operand 2 


result = p valuel + p value2. 


* subtraction: 


result = p valuel - p value2. 


WRITE: 


SKIP 1. 


* division: 


result 


/ p valuel, ' - 


a/b 


p valuel / p value2. 
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WRITE: / p valuel, ' / ', p value2, ' - sult. 
SKIP 1. 

* multiplication: a * b 
result - p valuel * p value2. 
WRITE: / p valuel, ' * ', p value2, ' - sult. 
SKIP 1. 

* div 
result = p valuel DIV p value2. 
WRITE: / p valuel, 'div', p value2, ' - sult. 
SKIP 1. 

* mod 
result = p valuel MOD p value2. 
WRITE: / p valuel, 'mod', p value2, ' - sult. 
SKIP 1. 

* power 
result - p valuel ** p value2. 
WRITE: / p valuel, '** ', p value2, ' - sult. 
SKIP 1. 
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6Second ABAP program: 


REPORT  sapbc402 dtss calc p. 


PARAMETERS: 
p valuel TYPE p decimals 2 DEFAULT 5, " input variable 1 
p value2 TYPE p decimals 3 DEFAULT 3. " input variable 2 
DATA: 
result TYPE p decimals 4. " result variable 
START-OF-SELECTION. 
WRITE: / text-001. 
a (001) EN: 'calculate with packed data' 
SKIP 1. 
WRITE: / text-002, p valuel, 
/ text-003, p value2. 
ki (002) EN: 'operand 1 = ' 
(003) EN: 'operand 2 = ' 
SKIP 2. 
* addition: a + b 


WRITE: / p valuel, ' + ', p value2, ' = ', result. 
SKIP 1 
* subtraction: a-b 


result = p valuel - p value2. 


WRITE: / p valuel, ' - ', p value2, ' = ', result. 
SKIP 1. 
* division: a/b 


result = p valuel / p value2. 


T 


WRITE: / p valuel, ' / ', p value2, ' = ', result. 


SKIP 1. 


* multiplication: a * b 


result = p valuel * p value2. 


WRITE: / p valuel, ' * ', p value2, ' = ', result. 
SKIP 1. 
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* div 


result = p valuel DIV p value2. 
WRITE: / p valuel, 'div', p value2, ' = ', result. 
SKIP 1. 

* mod 
result = p valuel MOD p value2. 
WRITE: / p valuel, 'mod', p value2, ' = ', result. 
SKIP 1. 

* power 
result = p valuel ** p value2. 
WRITE: / p valuel, '** ', p value2, ' = ', result. 
SKIP 1. 
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7Third ABAP program 


REPORT 


PARAMETERS 


sapbc402 dtss calc f. 


p valuel TYPE i DEFAULT 5, " input variable 1 
p value2 TYPE i DEFAULT 3 " input variable 2 
DATA: 
result TYPE f. " result variable 
START-OF-SELECTION. 
WRITE: / text-001. 
(001) EN: 'calculate with floating point data' 
SKIP 1. 
WRITE: / text-002, p valuel, 
/ text-003, p value2 
(002) EN: 'operand 1 = ' 
(003) EN: 'operand 2 = ' 
SKIP 2. 
addition: a + b 
result = p valuel + p value2. 
WRITE: / p valuel, ' + ', p value2, = ', result. 
SKIP 1 
subtraction: a-b 
result = p valuel - p value2. 
WRITE: / p valuel, ' - ', p value2, = ', result. 
SKIP 1. 
division: a/b 
result = p valuel / p value2. 
WRITE: / p valuel, ' / ', p value2, = "> résult.. 
SKIP 1. 
multiplication: a * b 
result = p valuel * p value2. 
WRITE: / p valuel, ' * ', p value2, = ', result. 
SKIP 1. 
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ULINE. 


El 


* div 
result 


WRITE: 


El 


SKIP 1. 


* mod 
result 


WRITE: 


El 


SKIP 1. 


p val 


luel DIV p value2. 


p val 


p val 


luel, 


div "p p value2, ' 


result. 


luel MOD p value2. 


p val 


luel, 


' mod ', p value2, ' 


(C) SAP AG 


BC402 


54 


Solutions for Exercise 2 


Unit: Data Objects, Types, and Statements 


Topic: Defining Data Types and Data Objects, Basic 
Statements, and Processing Strings 


REPORT  sapbc402 dtss data set. 


TYPES: 


BEGIN OF st flight c, 


mandt (3) 

carrid(3) 
connid (4) 
fldate(8) 
price (20) 


currency (5) 


planetype (10) 


seatsmax (10) 


seatsocc(10) 


TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 


paymentsum(22) TYPE 


END OF st flight c, 


BEGIN OF st flight, 


carrid(3) 
connid(4) 
fldate 


price(9) 


currency (5) 


planetype (10) 


seatsmax 


seatsocc 


TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 
TYPE 


END OF st flight. 


DATA: 
datastring 


set string 


TYPE 
TYPE 


wa flight c TYPE 


wa flight 


TYPE 


c, 
n, 
d, 
p DECIMALS 2, 
c, 
c, 
i, 


i, 


string, 


string, 


st flight c, 


st flight. 
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START-OF-SELECTION. 


CALL FUNCTION 'BC402 CREATE SEP STRING' 


* EXPORTING 
* im number = '1' 
* im table name = 'SFLIGHT' 
i im separator = '#' 
B im unique = 'X' 
IMPORTING 
ex_string = datastring 
EXCEPTIONS 
no data = 1 
OTHERS = 2. 


IF sy-subrc <> 0. 
MESSAGE a038 (bc402). 
ENDIF. 


* test: 


* WRITE datastring. 


kkk 


SHIFT datastring BY 2 PLACES. 
SEARCH datastring FOR '##'. 
IF sy-subrc = 0. 
set string = datastring(sy-fdpos) . 
ENDIF. 


* test: 


* WRITE: / set_string. 


kkk 


SPLIT set_string AT '#' INTO 
wa_flight_c-mandt 
wa_flight_c-carrid 
wa_flight_c-connid 
wa_flight_c-fldate 


wa_flight_c-price 
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* 


* 


* 


* 


wa flight c-currency 
wa flight c-planetype 
wa flight c-seatsmax 
wa flight c-seatsocc 


wa flight c-paymentsum. 


test: 

WRITE: / 
wa flight c-mandt, 
wa flight c-carrid, 
wa flight c-connid, 
wa flight c-fldate, 
wa flight c-price, 
wa flight c-currency, 
wa flight c-planetype, 
wa flight c-seatsmax, 
wa flight c-seatsocc, 


wa flight c-paymentsum. 


kkk 


MOVE-CORRESPONDING wa_flight_c TO wa_flight. 


WRITE: / 
wa_flight-carrid, 
wa_flight-connid, 
wa_flight-fldate DD/MM/YYYY, 
wa_flight-price CURRENCY wa_flight-currency, 
wa_flight-currency, 
wa_flight-planetype, 
wa_flight-seatsmax, 


wa_flight-seatsocc. 
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Global Types and Global Constants cap 4d 


Contents 


Introduction and advantages of global types 


Elementary global types and their use 


Global structure types and their use 


Global constants 
(using type groups) 


© SAP AG 1999 
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Global Types and Global Constants: Ed 
Unit Objectives SAP 


= At the conclusion of this unit, you will be able to: 


€ Perceive and explain the advantages of global 
types, whether you use local or global types 


€ Create data elements; use them and their 
attributes in programs 


€ Create structure types; use them and their 
attributes in programs 


© SAP AG 1999 
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Overview - Global Types and Global Constants Ep 


= 
Interface 


© SAP AG 1999 
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Overview: ABAP Dictionary ERU 
AF 
Global types Transparent 
tables 


Data element) | | 


Structure type [ [|| 


Table type 


Technical and For selections from 
semantic several 


type information database tables 


Search help Lock objects 


used to create 


for possible 
p lock entries 


entries help 


© SAP AG 1999 


The ABAP Dictionary is used to administer global information used throughout the system in all 
Repository objects. 
e Global types: 
You can define elementary and structured data types (of any level of complexity) globally. These data 
types contain semantic and technical information. 
e Search helps: 
Search helps control dialogs for possible entries help. Among other things, they specify which 
database tables and which criteria the system should use when searching for possible entries help. 
* Database tables: 
The ABAP Dictionary administers all the information on the database tables that are addressed from 
the SAP System. Database tables are changed in the Dictionary first and then copied to the database 
using the appropriate tool, after they have been activated. This process ensures that all information is 
up to date. Moreover, it allows users to maintain tables in a non-platform-specific way in the SAP 
System. 
* Development objects connected with database access: 
* You can access several database tables at once from an ABAP program, using Views. 


* You can create and delete lock entries from within the ABAP program using lock objects. This 
concept forms the basis of the SAP lock concept. 


(C) SAP AG BC402 4 


Overview: Advantages of Global Types 


© SAP AG 1999 
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Advantages for User Dialogs ER 
PT. 


Attributes of input/output fields: 
semantic information 
formatting options 


Each data object has the 
same type as the input field 


ABAP program 
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Many programs in the SAP System contain user dialogs for inputting and outputting data. Global types for 

input and output fields have the following useful attributes: 

* Value ranges: 
The system carries out automatic input checks by data type. 
Example: 
If an input field 1s given a date type, and the user tries to enter an invalid date, the program returns an 
error dialog box at runtime. 

* Formatting options: 
Some types have special formatting functions associated with them. For example, date fields and 
decimal numbers are formatted according to the settings in the user master record. For sums of money, 
the number of decimal places is set appropriately for the currency. Other special formatting operations 
can be applied to an elementary type. 
For example, in the flight data model, the flight time is saved in minutes but displayed in a hh : mm 
format. 

* Semantic information: 
If a global type is used, the user can easily assign the correct length to the input field for business 
purposes using the field help. In addition, fields with the same business context have the same field 
name in all programs. 
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Advantages When Using Database Dialogs 


LIL IC  ABAP program 


Data objects have the same type as 
columns in the database table 


Additional information on the database 
table, pertaining to the database: 
Table keys, indexes, size category... 
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m Global types and database table definitions are administered in the ABAP Dictionary. 

m To administer these database tables, the system needs to know the line type (which specifies the column 
type and column names), along with the following information: 

* Which columns are key columns? 
* What secondary indexes have been created for the table? 
* To which size category does the table belong? 

m If you want to access data in a database table from within an ABAP program, you need data objects with 
the same type as the database table columns. This is not difficult, since you can use the line type of the 
database table or of the individual fields in the line type themselves to define your data objects. 

m Note that database tables are represented differently in the ABAP Dictionary than global data types for 
internal tables. (The latter are data objects for ABAP programs). Consequently, you can only use the line 
type from a database table definition as a global type. 

DATA structure name TYPE transparent table. 
Thus, this statement defines a structure. 
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Advantages of Reuse 


Data objects and fields with 
the same technical and 
semantic attributes 


ABAP program A ABAP program B 


© SAP AG 1999 


m To minimize maintenance while maximizing consistency, global types are linked to business contexts in 
terms of content and are actively integrated in the SAP System. 

m Thus global types are administered centrally. You can use them in all Repository objects. You can also 
run a where-used list for each type or object. 

m Note that when you search for global types, you must take both the technical and the semantic attributes 
into account. Otherwise, you cannot benefit fully from the advantages of robustness and easier 
maintenance. 
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Example: Defining Types for Interface Parameters ER 
NE dl 


ABAP program: function pool 


Function 
module 


Interface 


ABAP program 
| | | 


Schnittstelle 
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m The interface parameters for function modules and methods of global classes are often defined using a 
global type. If this type is correct, you can use it directly to define the data object whose value is to be 
passed to the function module or method at runtime. This makes your program more robust, while 
reducing maintenance. 

m Note that you do not always have to type interface parameters fully. If you do not, the type is referred to 
as a generic type. You can only use generic data types to define interface parameters. 

Example: 

You want to pass a name to a function module. Formatting in the function module has been implemented 
in such a way that the length of the interface parameter is immaterial. However, the programmer has 
specified that the value must have a string type. At runtime, the system obtains the length of the formal 
parameter in the function module from the length of the actual parameter. 

These topics are dealt with in more detail in the units Subroutines and Function Groups and Function 
Modules 
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Overview of Global Types 
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8.11 


Overview: Global Types ERU 
APT. 


Global types 


Data element 


* Technical type: 


ies for F1 help Predefined 
* Link to search help Dictionary types 
' CHAR 


DEC 
* Component with type 
* Link to search help 


Internal | Domains | [Es] 
* Line type * Length 
* Table kind (access type * Fixed values 
* Value table 
* Conversion exit 
`~ 


Visible throughout Only visible within the 
the system ABAP Dictionary 
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m You define global types in the ABAP Dictionary: 

* Elementary types are known in the ABAP Dictionary as data elements. They can contain both 
technical and semantic type information. This includes different variants for field names, the text for 
the F1 help, and a search help (which defines the dialog and data source for the value help). 

* For historical reasons, structured types are called structures. From Release 4.5 onwards, structures 
and local structure types can be nested to any depth. 

* Data types for internal tables are known as table types for short. Do not confuse this term with the 
definition of database tables. The line types for table types can also be nested to any depth. Note that 
the term table kind is known as access type in the Dictionary, because the term fable kind is already 
used to refer to the different kinds of database tables. 

m Global types are formed from elementary types, just like local program data types. Although they are 
identical technically, they have different names from the predefined ABAP types. They are only visible 
within the ABAP Dictionary. Thus, for simplicity's sake, they are referred to as predefined Dictionary 
types. 

m Youcan also create purely technical type descriptions (along with data elements). These are known as 
domains. You can also specify value ranges, value sets (fixed values) and formatting operations in 
domains, or store a proposed value for a check table. 
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8.12 


Mapping Dictionary Types to ABAP Types ERU 
ML on 


DATA: carrier TYPE s carr id, 
itab TYPE sbc400 t spfli. Global types 


TABLES sdyn conn. S carr id 
: =] Data element 
E 

Generate program sdyn_conn 
| Structure 


Assigned ABAP types are used in sbc400 t spfli 
the generated version of the =a Table type 


program ——— | 


Execute program 


a A 


Documentation: 
Mapping between Dictionary types and 
ABAP program ABAP types: 


SAP Library 

— Basis 

— ABAP Workbench 

— BC ABAP Dictionary 

— Data types in the ABAP Dictionary 
— Mapping to the ABAP data types 
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m To find out more about the technical attributes of data objects in ABAP programs, note the mapping 
rules between Dictionary types and ABAP types. For further information, refer to the online 
documentation. 

* From the ABAP Dictionary, choose Help-7 Application help, then Data Types in the ABAP 
Dictionary-^ Mapping to ABAP Data Types. 

* Alternatively choose Basis->ABAP Workbench->BC ABAP Dictionary-> Data Types in the ABAP 
Dictionary-> Mapping to the ABAP Data Type, from anywhere in the SAP System. 
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Examples of Predefined Dictionary types EH" 
AI" 


Predefined Description Length Name of ABAP 
Dict. Type (dec. places) Type 


DEC Calculation or amount field (n*1)/2 
with comma and + or - sign m (dec.pl.) 


INTA 4 byte integer 
with + or - sign 4 bytes 
Fixed-length sequence of digits NE 


— 
3 ——— 
| e = 


Date field 
Time field 


Variable-length char. sequence string 


RAWSTRING | Variable-length byte sequence variable variable xstring 
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m You also use Dictionary types to define the type attributes of columns in database tables. To guarantee 
compatibility with common database management systems, there are more predefined Dictionary types 
than ABAP types. Technically however, there are no differences between them. For example, technically 
the clnt type is identical to a three-letter character sequence. There are also differences in the way 
types are represented. In the Dictionary for example, the length of a packed number is always entered as 
the number of digits, whereas in ABAP types, it 1s entered in bytes. 

m Dictionary types also contain semantic information and have specific formatting rules associated with 
them. 

m If you use both local and global data types in your ABAP program, you may have take the assignment 
between names of Dictionary type and names of ABAP types into account. 
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8.15 


Attributes of Data Elements END 
Nn ml 


globale Typen 


Only valid within the 


ABAP Dicti 
Data element SEEN ictionary 


*Length 


* Technical type: VESTES > Predefined ABAP types 
* Field name ctii 
iu Domains 


* medium 


M Type 
long *Length 


* header *Decimal places 
* Text for F1 help 


* Link to search help Search help 
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m There are different ways of assigning a data element to a technical attribute: 
* Use a domain: 

Contains the technical attributes of the data element. This reduces maintenance, since the technical 

attributes are managed separately from the semantic attributes. We recommend this procedure for 

business contexts, since they have the same technical attributes, but different semantic attributes - for 
example the codes for airport, departure airport, and destination airport. 

Declare the type directly: 

You reference a predefined Dictionary type. Both complete and incomplete types exist, just like 

predefined ABAP types. If you use incomplete types, you must specify the length and - with DEC 

types - you must also specify the number of decimal places. 

m Save the following semantic information with the data element: 

* Field names: These can be displayed on screens. 
* Text for F1 help, which appear when the user chooses to display the input field help (using the F1 
key). 

m Youcan link a start help to the data element. The search help controls the dialog between the user and 
the possible entries help, which appears when the user chooses to display possible input values using the 
F4 key. There are many other ways of obtaining possible entries help. For further information, refer to 
the online documentation. 
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Global types 


Data element BENI 


Formatting 


options | * Field name 
* Text for F1 help 
* Link to search help 
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m If you use a data element to assign a type to an input/output field, you can exploit the following 
attributes: 
* Predefined type: 
The type and length attributes control the length of the input field and the number of digits that the 
user can enter respectively. The system carries out an automatic type check using the value range that 
belongs to the type. If an error occurs, an error dialog box appears automatically. 
* Domain: 
Similar rules apply to additional restrictions made using value tables or fixed values. 
* Formatting rules: 
The field content is displayed already formatted. To do this, the system applies the formatting rules 
belonging to the type. 
* Semantic information: 
Field names can also be displayed, if they have been saved. 
If a help text has been saved with the data element, it appears when the user chooses to display the F1 
help. 
Search helps saved with the data element will be displayed when the user chooses the possible entries 
help, provided certain prerequisites have been met 
m If you use a data element to assign a type to a data object, the system copies only the technical attributes 
except for input fields on selection screens based on this data object, or when a list is displayed. 
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8.18 
Structures in the ABAP Dictionary 


* Name 
* Technical type: 
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m Each structure is generally made up of several components. You can assign a type to each component in 
several different ways: 
* Usea data element: 
Apart from the advantages of using a data element, you can also define foreign key relationships and 
link a search help to the component. If the field contains a sum of money or a value specified in a 
certain unit, you can enter a field as a reference field that contains this unit. For further information, 
refer to the online documentation. 
Declare the type directly: 
You can declare a predefined Dictionary type and, where necessary, specify the length and the number 
of decimal places, as for data elements. If the field contains a sum of money or a value specified in a 
certain unit, you can enter a field as a reference field that contains this unit. 
* Usea structure type or table type: 
This enables you to construct structure types of any complexity. 
m If you need to use global nested structure types in Release 4.0 or earlier, you can use a type group. We 
will deal with type groups in more detail in the Global Constants topic. 
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8.19 


BEGIN OF s connection nested type, 
connection spfli, 
carrname TYPE scarr-carrname, Structures: 
END OF s connection nested type. sdyn conn 


wa sflight $423 sflight, 
s flight connection nested TYPE s connection nested type. 


wa sflight 


[L I off | | T  lÀeemponents use line type of sflight 


s flight connection nested 


[ T |] 


à z Component is like carrname column of scarr 
Components use line type of sflight 
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m To define a data object, you can use a global structure type as follows: 
* To assign a type to a data object using a complete structure type: 
DATA data object name TYPE global structure type. 
The system copies the components with their component name and component type for the data 
object. 
* To assign a type to a data object using a component of a structure type: 
DATA data object name TYPE global structure type-comp name. 
m To define a screen interface, you can use a flat global structure type as follows: 
TABLES structure name. 
This statement defines a structure named structure name. Technically, this corresponds to the 
DATA structure name TYPE structure name statement. 
When using data elements with screens however, you can use the data element attributes only with the 
first variant. 
m For compatibility reasons, you can also create a reference to flat global structure types outside classes 
using LIKE: 
DATA data object name LIKE simple structure type. 
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8.20 


Global types 


Semantic 
information 


Formatting * Text for F1 help 
options "a help] * Search help 


Technical | * Predefined type 
| information | 


ABAP program 


PARAMETERS pa carr TYPE spfli-carrid. 
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m If you use an elementary structure component to assign a type to an input field on a selection screen, 
you can use the same attributes as you would using a data element. 

m Ifa search help is linked to the data element and an elementary structure component, the system uses the 
search help assigned to the structure component. For further information, refer to the online 
documentation. 
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Global types 


Data element 


structure name 


Semantic 


information y 
— * Field name 


"a 
* Text for F1 hel 
Formatting ASEN de 
options 2 


Syntax checks 
Foreign key 
relationship 


TABLES structure name T 
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m If you use an elementary structure component to assign a type to an input/output field on a selection 
screen, you can use the same attributes as you would using a selection screen. 
m In addition, you also have the following options: 

* Input checks: The system checks both the value range belonging to the predefined Dictionary type 
and the fixed values (a value range stored in the domain). Moreover, if the table specified in the 
Check table field of a structure component is a database table, the system performs a foreign key 
check. If the value entered is not available as a key in the check table, an error dialog box appears 
automatically. 

* Formatting options: You can define a reference field for sums of money and values specified in 
units. These values will then be formatted correctly at runtime (depending on the currency in the 
reference field, in the case of sums of money). 

m You must define the structure for the data transport between the screen and the program using the 

TABLES statement. 
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Type Groups in the ABAP Dictionary my 
2 | 


Type group name: 
up to 5 characters 
Each type name and Type group zmytp 
component name 


starts with the name of ” TYPE-POOL págs. 
the type group. ] CONSTANTS pas: const name ... 


Each type group whose 
types and constants you 
want to use must be 
entered in the ABAP progra 


ABAP program 


Using a type: Using a constant: 
TYPE-POOLSR IF var = ET const name. 


DATA var TYPE zmytp typel. ENDIF. 
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m You must use a type group to define global constants. The name of the type group can contain up to 5 
characters. You define constants in the type group using the CONSTANTS statement. You can use either 
a global Dictionary type or a predefined ABAP type, as a valid type. 

m To use the types of a type group in a program, you specify the type group using the TYPE-POOLS 
statement. 
After this line in the program, you can then use all the constants in the type group. 

m Youcan also define global data types in a type group. Before Release 4.5, this was the only way to 
define complex global data types. 
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8.24 


Global Types and Global Constants: Ed 
Unit Summary SAP 


You are now able to: 


€ Perceive and explain the advantages of global 
types, whether you use local or global types 


€ Create data elements; use them and their 
attributes in programs 


€ Create structure types; use them and their 
attributes in programs 
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8.25 Exercise 


Unit: Global Types 
Topic: Defining and Using Global Data Types 


At the conclusion of these exercises, you will be able to: 
* Define global structure types 


* Use global types 


Extend your program to use a global structure type instead of the 
local structure type st. flight. To do this, create a global 


> ) ) Structure type in the ABAP Dictionary and use it instead of 


st flight. 


Since global structure types are available throughout the system, 
you can also use them in other Repository objects. 


p" | Structure: ZBC402_## FLIGHT 
l | Í Í | | | Program: ZBC402 ## GLOBAL TYPES 


Template: your solution from the previous exercise 
or 
SAPBC402 DTSS DATA SET 


Model solutions: BC402 S FLIGHT (Structure) 
SAPBC402 GTYS GLOBAL TYPES 


where ## stands for your (two-digit) group number. 


1-1 Create a global structure in the ABAP Dictionary and give it the name 
ZBC402_## FLIGHT. It should have the same structure as the local structure type 
st flight. However, the components should now match the components of the 
transparent table SFLIGHT. Follow the detailed instructions below: 


1-1-1 Create a global structure with the name ZBC402_## FLIGHT and enter a 
short text for it. 


1-1-2 Create the structure components. Find out which component types you need 
from the definition of the transparent table SFLIGHT. 


VL. Note that when you maintain your global structure type, you 


can copy interactive fields from the structure SFLIGHT 
using the menu path Edit/Copy fields. 


ya 


(C) SAP AG BC402 25 


1-3 


1-1-3 Assign a suitable reference field to the PRICE component in your structure on 
the Currency/Amount fields tab in the maintenance environment. 


^ Note that, if y field contains a currency amount, you must 
Z assign a field to it with the appropriate currency (as a 
currency code). This assignment ensures that the content of 
input/output fields of this type will be displayed in the 
correct format. The content of the reference field containing 
the currency code specifies the formatting. 


Copy your program, ZBC402_## DATA SET, or the model solution 
SAPBC402 DTSS DATA SET, to a new program, and call it 
ZBC402 ## GLOBAL TYPES. 


Use the global structure type ZBC402_## FLIGHT instead of the local structure type 
st flight. You can delete the definition of the local structure type st. flight, 


since you no longer need it. Either delete the relevant lines of code completely, or 
comment them out. 
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8.26 Solutions 


Unit: Global Types 
Topic: Defining and Using Global Data Types 


9Global structure type 
Structure BC402 S FLIGHT 
Short text BC402: Structure: Extracted flight data 
Component Typed using data element: 
CARRID S CARR ID 
CONNID S CONN ID 
FLDATE S DATE 
PRICE S PRICE 
CURRENCY S CURRCODE 
PLANETYPE S PLANETYE 
SEATSMAX S SEATSMAX 
SEATSOCC S SEATSOCC 
10ABAP program 


REPORT  sapbc402 gtys global types. 


TYPES: 


BEGIN OF st flight c, 


mandt (3) TYPE c, 
carrid(3) TYPE c, 
connid (4) TYPE n, 
fldate (8) TYPE n, 
price(20) TYPE ©; 
currency (5) TYPE c, 
planetype(10) TYPE c, 
seatsmax (10) TYPE n, 
seatsocc(10) TYPE n, 
paymentsum(22) TYPE c, 
END OF st flight c. 


DATA: 


datastring TYPE string, 
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Set string TYPE string, 


wa flight c TYPE st flight c, 


wa flight TYPE bc402 s flight. 


START-OF-SELECTION. 


CALL FUNCTION 'BC402 CREATE SEP STRING' 
* EXPORTING 
* im number = '1! 
E im table name = 'SFLIGHT' 
* im separator = '#! 
dé im unique = 'X'! 
IMPORTING 
ex string = datastring 
EXCEPTIONS 
no_data Sl 
OTHERS = ¿Lia 


IF sy-subre <> 0. 


MESSAGE a038 (bc402). 


E 


NDIF. 


SHIFT datastring BY 2 PLACES. 


SEARCH datastring FOR '##'. 
IF sy-subre = 0. 

set string = datastring(sy-fdpos). 
ENDIF. 


SPLIT set string AT '#' INTO 


wa flight c-mandt 
wa flight c-carrid 
wa flight c-connid 


wa flight c-fldate 


wa flight c-price 


wa flight c-currency 


wa flight c-planetype 


wa flight c-seatsmax 
wa flight c-seatsocc 
wa flight c-paymentsum. 


MOVE-CORRESPONDING wa flight c TO wa flight. 


WRITE: / 
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ENCY wa flight-currency, 


wa flight-carrid, 

wa flight-connid, 

wa flight-fldate DD/MM/YYYY, 
wa flight-price CURR 

wa flight-currency, 

wa flight-planetype, 

wa flight-seatsmax, 

wa flight-seatsocc. 
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Control Statements cap d 
a MEN ee m» 


Contents: 


Conditional Branching 


Jump Statements 


e 
€ Loops 
© 
© 


Catching Runtime Errors 
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11.2 


Control Statements: Unit Objectives Ep 
JAR 


= At the conclusion of this unit, you will be able to: 


€ Create logical expressions 


€ Control the program flow using logical 
expressions and conditional branching 


Use loops 
Use jump statements 


€ Catch runtime errors 
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11.3 


Overview: Control Statements 


ABAP program 
SCIE 


[ 
l 
LIT 101! 


Subroutine 


© SAP AG 1999 


(C) SAP AG BC402 3 


11.4 


Overview: Control Structures 
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Control Structures d 
SAP 


Program 


Processin 


g block 1 


Control structures 


[| Conditional branching 


[| Loops 


| Event block 
Program 
0 List 
1 Selection screen 
1 Module 
1 Subroutine 
1 Method 


1 Function module 


Processin 


g block n 


cannot be 
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m You can use standard key words like 1 


[F, CASE, 1 


DO and WH1 


nested 


[LE to control the flow of a program. This 


allows you to execute different parts of a program, depending on conditions you have specified, or to 
bundle repeated sequences of statements in loops. The constructs you create using these standard key 
words are known as control structures. 


m The control structures described here allow the program to branch only within the processing blocks. 
They are used to control the internal flow of a statement block. 


m Control structures allow you to split a processing block into separate, logically connected statement 
blocks. Each statement block then performs part of a task. 


m Control structures can be nested, unlike processing blocks. 
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11.7 


Conditional branching EN 


log expr 1 Block 1 


log expr 2 Block 2 


p Statement Diack 2 d 


log_expr_n Block n ELSEIF 


| Statement block n — 


ELSE 


Block n+1 ' Statement block n+1 — | 


Next statement 
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m You introduce a conditional branch using the IF statement. When this statement is executed, the 
program flow branches to a processing block, determined by a specific condition. The statement block 
begins with an IF statement and ends with an ENDIF statement, an optional ELSEIF statement, or an 
ELSE statement. 


m Atruntime, the system evaluates the conditional branch as follows: 
* First, it evaluates the logical expression after the IF statement. If the condition is true, the statement 
block is executed up to the next syntax element of the control block (ELSEIF, ELSE or ENDIF). The 
system then executes the statements after the ENDIF. 


e Ifthe logical condition after the IF statement is false, the system carries out the same procedure for 
each ELSEIF statement in order. 
* [f none of the logical conditions is true, the system executes the statement block between the ELSE 
and ENDIF statements. The system then continues processing after the ENDIF. 
m The ELSEIF and ELSE statements are optional. 


m Conditional branches may be nested. However, the statement blocks must be completed within the 
current processing block. This means, for example, that you cannot include an event key word in an IF 
- ENDIF block. 
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11.8 


The CASE Control Structure REA 


CASE 
Block 1 : 
WHEN 


WHEN HOR 


| Statement block 2 


| Statement block n | 
WHEN OTHERS 


Block n+1 ¡ Statement block n+1 — | 


ENDCASE 


Next statement 
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m You introduce 


a "case... when" condition using the CASE statement. This control structure allows the 


program to branch to different statement blocks, depending on a comparison of the values of two data 
object. At runtime, the system evaluates the case condition as follows: 


* [t compares 


the content of the data object after the first WHEN with the content of the data object after 


the CASE. If these contents are equal, it executes the subsequent statement block. This statement block 
ends with either the next WHEN or with an ENDCASE statement. The system then continues processing 


after the EN 


DCASE. 


* Ifthe contents of the two data objects after the first WHEN and CASE are not equal, the system makes 
the same comparison for each of the other WHEN branches. 


* [f none of the WHEN values equals the CASE value, the system executes the (optional) statement block 
between WHEN OTHERS and ENDCASE. 


m You can use as many WHEN clauses as you like. 


m Youcan list several data objects separated by OR after the WHEN statement. If the value of any of these 
data objects equals the value of the object after the CASE statement, the system executes the associated 
statement block. 
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W CASE control structures may be nested. However, the statement blocks must be completed within the 
current processing block. This means, for example, that you cannot include an event key word in a CASE 
- ENDCASE block. 


(C) SAP AG BC402 9 


© SAP AG 1999 


(C) SAP AG BC402 10 


11.10 


Logical Expressions with Simple Comparisons END 
AF 


* comparisons for all datatypes: 
dobj {EQ|=} {lit|dobj} .. "equal 
dobj {NE|<>} (1it|dobj) .. "not equal 
dobj {GT|>} {lit|dobj} .. "greater than 
dobj {GE|>=} {lit|dobj} .. "greater or equal 
dobj {LT|<} {lit|dobj} .. "less than 
dobj {LE|<=} {lit|dobj} .. "less or equal 
dobj BETWEEN {lit|dobj} AND (lit|dobj) 
dobj IS INITIAL 
dobj IN seltab .. "selection table contains value 


* nesting logic expressions: 
nest op ( exprl nest op expr2 ) nest op .. 


* possible operators nest op: 
. AND .. "all expressions must be true 
OR .. "one of the expressions must be true 


* negation: 
. NOT expr .. "true, if expr false 
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Comparisons between non-numeric data objects are interpreted differently according to their data type: 
e Ifpossible: | Conversion into numbers (hexadecimal, for example, as dual number); 
* Date and time: Interpreted as earlier/later, so 31.12.1999 < 01.01.2000; 
* Other characters: Lexical interpretation according to character codes. The two operands are given 
the same length and filled with trailing spaces where necessary; 
* References: System compares address and type. 
It only makes sense to compare for equality. 
When you join or negate comparisons, the usual rules for logical expressions apply: 
NOT is stronger than AND. AND is stronger than OR. 
Example: 
NOT fl = £2 OR £3 £4 AND £5 = £6 is the same as 
( NOT ( £1 = £2 ) ) OR ( £3 = £4 AND £5 = f6 ). 
You should therefore enclose the component expressions of your comparisons in parentheses, even when it 
is not strictly necessary, to make them easier to understand, and for additional safety. You can also 
considerably improve the runtime of your programs by optimizing the structure of your expressions. 
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Automatic Type Conversion in Logical Expressions ER 
AP 


ope { =, <>, >, <, <=, >=, EQ, NE, LT, GT, LE, GE } 


X Elementary data objects 
dobj 1 op dobj 2 


Runtime system 


Type (dobj 1) |<>| Type (dobj 2) : 


Conversion rules 
Type conversion to a compatible type = described in online 
T T documentation 


.. dobj 3 op dobj 4 .. 


l Structures 
X Compatible structures: | Comparison component by component 


1 Incompatible structures: Comparison in the sense of a character-type field 
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m You can use the comparison operators =, <>, >, <, >=, and <=, or their two-letter equivalents, to 
compare any data object types. 
m Ifyou compare elementary (that is, unstructured) data objects of different types using these operators, 
the runtime system converts these data objects to objects with compatible types and then compares them. 
For details of the rules used to convert these data objects, refer to the online documentation, using the key 
word Logical Expressions. 
m Ifyou compare structures using the above operators, the runtime system behaves as follows: 

* Ifthe structures are compatible, it compares them component by component. 

* Ifthe structures are incompatible, the two structure contents are compared as if they were two string 

type fields. 

Summary: 
If possible, compare compatibly typed data objects only. If this is impossible, get to know the rules 
governing conversions, so you can estimate how the runtime system will perform the comparison. 
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Comparison Operators for Strings EH 
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For each of the above relational operators, there 1s a corresponding negative expression. 
The logical expression ...strl op str2 .. can contain an operator op as follows: 


e CO stri only contains characters from <str2>; 

e CN strl contains characters not only from str2 (corresponds to NOT strl CO str2); 

e CA  str1 contains at least one character from str2; 

e NA stri does not contain any characters from str2; 

e CS strl contains the string str2; 

e NS strl does not contain the string str2; 

e CP strl contains the pattern st r2; 

e NP strl does not contain the pattern st r2; 
The system field sy-fdpos contains the offset of the character that satisfies the condition, or the length of 
strl. 
In the first four expressions, the system takes into account upper- and lowercase letters and the full length 
of the string ("space" column). 
To specify patterns, use '*' for any string, and '+' for any character. The escape symbol is '#'. 
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Overview: Loops 


Control Structures 
Conditional Branching 
Logical Expressions 
Loops 

Jump Statements 


Catching Runtime Errors 
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m Loops allow you to execute a statement block several times, without having to implement it more than 
once. There are three kinds of loops: 

* DO- and WHILE loops: These loops allow you to execute a statement block several times. You control 
the number of iterations of the loop differently for each of the two kinds of loop. While the system is 
executing either of these loops, it stores a loop counter in the sy- index field. 

* SELECT loops, used to access the database: Allows you to exploit the iteration property of the 
SELECT ... ENDSELECT statements, to perform operations on the data you have read within the 
statement block. Bear in mind however, that you must keep the database cursor for the entire duration 
ofthe SELECT loop, which can slow down system performance. 

* LOOPs through internal tables: Allows you to exploit the iteration property of the LOOP 
ENDLOOP statements, to perform operations on lines in a table within the statement block. While the 
system is executing this loop, it stores a loop counter in the sy-tabix field. 

m The next few slides deal with DO- and WHILE loops in more detail. 
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Index-Controlled Loops Ep 


Previous 
statement 


DOE, ME: 
Execute n | 


Statement block , 
times Statement block 


After the nth loop pass 


Next statement 


Loop counter 
within the loop: 
sy-index 


n can be a literal 
or a variable 


© SAP AG 1999 


The processing block in a loop is generally executed several times in succession. You can nest loops to any 
depth or combine them with other control structures. While the loop is being processed, the system field 
sy-index contains the number of loop passes already performed including the current one. 
* If you want to process a statement block several times without specifying a condition, you can use an 
index-controlled loop. 
* The TIMES addition limits the number of loop passes to n., where n can be a literal or a variable. If n 
is 0 or a negative number, the loop will not be executed. 
* [f you do not include any additions the statement block between the DO and ENDDO statements, will 
be processed until the system reaches the termination statement EXIT. 


* For more on the options available to you for index-controlled loops, refer to the key word 
documentation for the DO statement. 
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Loops: Testing Condition on Entry 


Previous 
statement 


falsch 


WHILE 


Statement | ! Statement block 
block | | 


ENDWHILE 


Next 
statement 


Loop counter 
within the loop: 
sy-index 
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m If you want 


to process a statement block several times provided a condition is fulfilled, you can use a 


WHILE loop. 
m Youcan program any logical expression as a condition. The statement block between the WHILE and 
ENDWHILE statements will be processed, until either the condition is fulfilled or the system reaches the 


termination 


statement EXIT. 


m To avoid creating an endless loop, you should query whether the condition in the WHILE statement has 
ever been false, or whether the EXIT statement has been reached in the event block. 
m For more on the options available to you for WHILE loops, refer to the keyword documentation. 


Note: 
If you want to 
with an EX] 


test the condition at the end of the statement block, you can use an index-controlled loop 
[T statement. 
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Overview - Jump Statements 
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Overview: Leaving Processing Blocks END 
ML on 


MESSAGE a.. 


Loops: Leave the 
| 

DO WHILE bad loop 

SELECT LOOP p 


Events l: Display list 


LOAD-OF- PROGRAM. buffer and 
continue 


Display 


START-OF-SELECTION. with message 
GET «node» [LATE]. Events Il 
END-OF-SELECTION. then 
OE End program 
Events Il: end program 


INITIALIZATION. 
AT SELECTION-SCREEN [OUTPUT] . Ends current and delete all 
TOP-OF-PAGE. processing block and internal sessions 
END-OF-PAGE. starts next 
AT LINE-SELECTION. 
AT USER-COMMAND. 


Modularization units 
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Reminder: 
ABAP event blocks or modularization units (subroutines, modules) are known as processing blocks. 
m The effect of the CHECK logic expr statement is as follows: 

* Outside the loop, you use it to end a processing block prematurely. If the logical condition is false, the 
system skips all the statements in the block after the CHECK statement. Processing continues with the 
first statement in the next processing block. 

* Within a loop, processing resumes at the beginning of the next loop pass. 

m The EXIT statement can behave in three different ways: 

* Within a loop, it terminates loop processing completely. 

* Outside a loop but in one of the events listed under Events I, it makes the system display the current 
contents of the list buffer. The system then triggers the events in Events II. In a LOAD-OF- 
PROGRAM block, the events before START-OF-SELECTION are also triggered. 

* [nall other cases, EXIT has the same effect as CHECK. 

m The statements LEAVE PROGRAM and LEAVE TO TRANSACTION tcode terminate the current 
program. 

m When you send a termination (type A) message, the current program ends, and the entire program stack 
is destroyed. For further information, refer to the unit Calling Programs and Passing Data. 
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Catching Runtime Errors 
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Catching Runtime Errors ER 
SAP 


CATCH SYSTEM-EXCEPTIONS excpt 1 | 


ENDCATCH. 


Individual bcd zerodivide 
runtime convt no number 


errors 


arithmetic errors 
conversion errors 


All catchable 


runtime errors eee 
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m Within a processing block, you can use the CATCH SYSTEM-EXCEPTIONS... ENDCATCH 
construction to catch runtime errors. If the specified system exception occurs, the system leaves the 
statements in the block and continues processing after the ENDCATCH statement. This construction only 
catches runtime errors at the current call level. If you call a subroutine in which a runtime error is 
triggered, you must catch this error in the subroutine itself. 

m Each runtime error is assigned to an ERROR class. For a full list, refer to the syntax documentation for 
the CATCH statement. 

m You can specify one of the following as the system exception excpt that you want to catch: 


* Asingle error (for example, convt no number); 

* ERROR classes (for example, arithmetic errors) 

e All catchable runtime errors 
m The return codes rc 1 ... rc nmustbe numeric literals. 
m The return code assigned to the runtime error that occurred is placed in the system field sy-subrc. If 
more than one value was assigned to it, the system uses the first. This is particularly important if you 
specify two different ERROR classes that contain the same runtime error. 
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11.20 


Example: Catching Runtime Errors EDT 
Mz m 


DATA pack(4) TYPE p DECIMALS 2 VALUE '3. 


CATCH SYSTEM-EXCEPTIONS convt no number - 
convt overflow z 


CATCH SYSTEM-EXCEPTIONS convt no number = 
bcd zerodivide 


CATCH SYSTEM-EXCEPTIONS remote call errors 


pack = pack / 0. 
ENDCATCH. 


pack = 'ABC'. 
ENDCATCH. 


pack = '123456789.987654321'. 
ENDCATCH. 


© SAP AG 1999 


m You can nest CATCH SYSTEM-EXCEPTIONS ... ENDCATCH constructions to any depth. If a 
runtime error occurs, the system searches for an assignment in the current statement block. If it does not 
find one, it searches in the next-highest block, and so on. Processing resumes after the ENDCATCH 


statement of the block in which the assignment was found. 

m The above example nests three CATCH SYSTEM-EXCEPTIONS ... ENDCATCH constructions. 
Before each ENDCATCH statement is a statement that causes a runtime error. 

m At which statement does the system set the field sy-subrc? With which value? At which statement 
does processing resume? 


(C) SAP AG BC402 21 


11.21 


Example: Solution, Part 1 EDT 
Mz om 


DATA pack(4) TYPE p DECIMALS 2 VALUE '3. 


CATCH SYSTEM-EXCEPTIONS convt no number - 
convt overflow = 


CATCH SYSTEM-EXCEPTIONS convt no number = 
bcd zerodivide 


CATCH SYSTEM-EXCEPTIONS remote call errors 


De EX 


PES 


pack = pack / 0. E: 
ENDCATCH. He 


pack = 'ABC'. 
ENDCATCH. 


pack = '123456789.987654321'. 
ENDCATCH. 
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m The division by zero in the innermost block triggers the runtime error bed. zerodivide. However, 
there is no assignment for the error in this block. 

m Consequently, the system looks in the next-highest block for the error, where it is assigned. The system 
field SY -SUBRC is set to 4. 
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11.22 


Example: Solution, Part 2 EDT 
AF 


DATA pack(4) TYPE p DECIMALS 2 VALUE '3. 


CATCH SYSTEM-EXCEPTIONS convt no number - 
convt overflow z 


CATCH SYSTEM-EXCEPTIONS convt no number = 
bcd zerodivide 


CATCH SYSTEM-EXCEPTIONS remote call errors 


pack = pack / 0. 
ENDCATCH. 


pack = 'ABC'. 
ENDCATCH. 


pack = '123456789.987654321'. 
ENDCATCH. 
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m The system resumes processing at the first statement after the middle ENDCATCH statement. The 
assignment of a string (which cannot be interpreted as a packed number) to a packed number field 1s 
therefore not executed, even though we would have caught the ensuing runtime error 
convt no number in our program. 
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11.23 


Example: Solution, Part 3 Np" 


DATA pack(4) TYPE p DECIMALS 2 VALUE '3. 


CATCH SYSTEM-EXCEPTIONS convt no number - 
convt overflow = 


CATCH SYSTEM-EXCEPTIONS convt no number = 
bcd zerodivide 


CATCH SYSTEM-EXCEPTIONS remote call errors 


pack = pack / 0. 
ENDCATCH. 


pack = 'ABC'. 
ENDCATCH. 


pack - '123456789. 9876543217. 
ENDCATCH. 
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m Finally, we trigger the runtime error convt. overflow by assigning a number to the packed field that 


is too big for it. A return code is assigned to this error in the outer block. 
m SY-SUBRC is set to 2. 
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11.24 


Example: Solution, Part 4 ERU 
ML on 


DATA pack(4) TYPE p DECIMALS 2 VALUE '3. 


CATCH SYSTEM-EXCEPTIONS convt no number - 
convt overflow = 


CATCH SYSTEM-EXCEPTIONS convt no number = 
bcd zerodivide 


CATCH SYSTEM-EXCEPTIONS remote call errors 


pack = pack / 0. 
ENDCATCH. 


pack = 'ABC'. 
ENDCATCH. 


pack = '123456789.987654321'. 
ENDCATCH. 


© SAP AG 1999 


m The system resumes processing after the corresponding ENDCATCH statement. 
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11.25 


Control Statements: Unit Summary 


You are now able to: 
Create logical expressions 


Control the program flow using logical 
expressions and conditional branching 


Use loops 
€ Use jump statements 


€ Catch runtime errors 
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11.26 Exercise 


Unit: Control Statements 


Topic: Loops 


At the conclusion of these exercises, you will be able to: 


e Use WHILE loops 


Extend your program to make it receive, extract, and display 
more than one data record. Extract and display the data in a 


9) WHILE loop. 


p" | Program: ZBC402 ## WHILE 
l | Í Í | | | Template: your solution from the previous exercise 
or 


SAPBC402 GTYS GLOBAL TYPES 
Model solutions: SAPBC402 CCMS WHILE 


where ## stands for your (two-digit) group number. 


1-1 Copy your program, ZZBC402 ## GLOBAL TYPES, or the program 
SAPBC402 GTYS GLOBAL TYPES, to a new program, and call it 
ZBC402_## WHILE. 


1-2 Use the function module BC402 CREATE SEP STRING to import several data 
records (we suggest 30 records). Make sure there are some duplicate records. 


1-2-1 Create a constant (suggested name: c num), with the type i and assign to it the 
value 30. 


1-2-2 Use the constant to fill the interface parameter im number when you call the 
function module BC402 CREATE SEP STRING. 


1-2-3 Fillim unique with a space. 


1-3 Using a loop, split the entire string datastring successively into the auxiliary string 
set string,suchthat set string contains a single record from the table in 
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each loop pass. From this auxiliary string set. string, extract the individual fields 
that you will display formatted as follows: 


1-3-1 Make sure that you carry out all these tasks — filling the auxiliary field 
set string, splitting it into individual fields (using SPLIT) and displaying 
the formatted data — in a loop. Use a WHILE loop controlled by the length of 
the variable datastring. 
(a) The loop should be processed as long as datastring contains a 
character. 
(b) Each time you copy a section of datastringinto set string, you 
must remember to discard that section from set string. Otherwise the 
termination condition will never occur. 


You can extract and display the data as in previous exercises. 
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11.27 


12 


Solutions 


Unit: Control Statements 


Topic: Loops 


ABAP program 


REPORT  sapbc402 ccms while. 
TYPES: 

BEGIN OF st flight c, 
mandt (3) TYPE c, 
carrid(3) TYPE c, 
connid (4) TYPE n, 
fldate (8) TYPE n, 
price (20) TYPE c, 
currency (5) TYPE c, 
planetype(10) TYPE c, 
seatsmax (10) TYPE n, 
seatsocc(10) TYPE n, 
paymentsum(22) TYPE c, 

END OF st flight c. 

DATA: 

datastring TYPE string, 

set string TYPE string, 

wa flight c TYPE 

wa flight TYPE 

CONSTANTS: 
c num TYPE i VALUE 30. 


bc402 s flight. 


st flight c, 
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START-OF-SELECTION. 


CALL FUNCTION 'BC402 CREATE SEP STRING" 
EXPORTING 
im number = c num 
* im table name = 'SFLIGHT' 
* im separator = '#! 
im unique = ! '! 
IMPORTING 
ex string = datastring 
EXCEPTIONS 


no data =. 


OTHERS = 2. 


IF sy-subrc <> 0. 


MESSAGE a038 (bc402). 


ENDIF. 


WHILE NOT datastring IS INITIAL. 


SHIFT datastring BY 2 PLACES. 


SEARCH datastring FOR '##'. 

IF sy-subre = 0. 

set string = datastring(sy-fdpos). 
SHIFT datastring BY sy-fdpos PLACES. 


SPLIT set string AT '£' INTO 


wa flight c-mandt 

wa flight c-carrid 

wa flight c-connid 

wa flight c-fldate 

wa flight c-price 

wa flight c-currency 

wa flight c-planetype 

wa flight c-seatsmax 

wa flight c-seatsocc 

wa flight c-paymentsum. 
MOVE-CORRESPONDING wa flight c TO wa flight. 


(C) SAP AG BC402 30 


= 
Del 
A 
-J 
e 


ENDIF. 
ENDWHILE. 


M/YYYY, 


light-carrid, 
light-connid, 
ight-fldate DD/ 
ight-price CURR 
ight-currency, 
ight-planetype, 
ight-seatsmax, 
ight-seatsocc. 


ENCY wa flight-currency, 
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Internal Tables cap d 
AMI" 


Contents: 


Introduction and advantages of internal tables 


Defining internal tables 
Internal table operations 
Notes on performance 


Special internal tables 


© SAP AG 1999 
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13.2 


Internal Tables: Unit Objectives ER 


= At the conclusion of this unit, you will be able to: 


e Define an internal table 
@ Perform operations on internal tables 


e Identify table kinds and use them appropriately in 
different situations 
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13.3 


Overview: Internal Tables Ep 
EM 


ss y 
L] 
ABAP program 


A Object 


Operations 


Method 
Subroutine 
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13.4 
Overview: Introduction and Advantages of Internal 
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13.5 


The Internal Table - a Data Object of Variable Length SAP 


Internal table 


At runtime, the runtime system allocates 
memory for the lines in the table as needed 


(dynamic table expansion) 
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m Internal tables are data objects that allow you to store datasets with a fixed structure in memory. The 
data is stored line by line in memory. Each line has the same structure. 

m Youcan also refer to each component in a line as a column in the internal table. You refer to each line in 
the internal table as a table line or table entry. 

m Internal tables are dynamic data objects - that is, they can hold any number of lines of a fixed type. The 
number of lines in an internal table is limited only by the capacity of the specific system with which you 
are working. 

m Youcan define the line type of an internal table to include elementary, structured, or even table types, 
and can be as complex as you want to make it. 
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13.6 


Attributes of Internal Tables ERU 
DAT 


CARRIDICONNID|DISTANCEIDISTID What columns 
Line ius are included? 


Index access 


; Access type 


Key access 


Key 

Key fields 

[| Sequence 

[| Unique or not 
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m Each internal table has the following attributes: 
* Line type: 
You use the line type to specify which columns are to be included in your internal table. You must 
assign a name and type to each column. You generally define a line type using a structure type. 
* Key: 
Internal tables have a key, just like database tables. You specify the key using: the columns that 
should belong to the key, the sequence, and whether or not the key should be unique or non-unique. 
Depending on how you define your internal table, the runtime system may create an additional 
unique key (the index-), for it (see later within this unit for more details). For simplicity sake, you can 
think of the index as a line number. 
Access type: 
You can access the lines in the table using either the table key or the index - if there is one available. 
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13.7 


Table Kinds END 
AT 


Standard Table 


[XHas an index and key 
fields 


[XStandard key: 

All fields with character 
type 

Key non-unique 
(duplicates allowed) 
Access predominantly 


Sorted Table 


[| Has an index and key 


fields 


| Runtime system keeps 


table sorted by key fields 


[| Key can be unique or 


non-unique 


(| Access predominantly 


by key 


Hashed Table 


[| Has key fields 
[ Key must be unique 


[| Better performance if 
used with fully-specified 
key access 


by index 
Can be sorted 


Only kind of table 
allowed in RFC interfaces 


(| Better performance, if 
used with partial 
sequential loops 
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m There are three table kinds in ABAP. Each kind has different attributes, which specify whether the key is 
unique, how the index is managed, and how the table data is addressed internally. The purpose of this is 
to provide particular support for special access types from the runtime system (and thus ease the burden 
on application programmers): 

* STANDARD tables have a key and an index. The key may or may not be unique. You can either define 
a key explicitly for a standard table, or use a standard key. The standard key consists of all the fields 
in the line type with character datatypes (c,n,d,t,x,string,xstring). Alternatively, you 
can define a key yourself explicitly. You usually access standard tables using the index, so the key is 
less significant. Standard tables can be sorted at runtime. Up to Release 4.6, standard tables were the 
only internal tables supported by RFC interfaces. 

* STANDARD tables also have a key and an index. The key may or may not be unique. The runtime 
system keeps sorted tables sorted by key fields, which makes this kind of table particularly good for 
key accesses. SORTED tables offer better performance than STANDARD tables when you either read 
single records or when you process short sequences of records in a loop, since the results are specified 
by a key. This 1s because the runtime system uses the sort function in the search algorithm. 

* HASHED tables must have a unique key. They do not have an index. The table entries are addressed 
by means of a special hash algorithm. This minimizes access time for reading single records with fully 
qualified keys. The access time is thus independent of the number of lines in the table. 
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13.8 


The Link Between the Table Kind and the Access ENT 
Type AI" 


Index tables Hashed tables 


Table kind STANDARD TABLE SORTED TABLE HASHED TABLE 
Index access / 


Key access Hash 
Qm Table scan Qm Binary search Qm 
function 


"m bf boo 


Uniqueness NON-UNIQUE UNIQUE | NON-UNIQUE UNIQUE 


Access by Mostly index Mostly key Key only 
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The table kind is linked to the access type as follows: 


m You can only perform an index access (the fastest type of access) on STANDAR] 


D and SORTE 


D tables. 


m The runtime system implements key accesses of SORTED and HASHED tables in a way that optimizes 
runtime performance. Key access of standard tables is by table scan - that is, comparing the field 


contents with the search key line by line, in a loop. 


m The runtime system implements key accesses of SORTED tables, for fully or partly qualified keys (left 


aligned, no gaps, all fields filled with an "—") in a special way. 


The same applies to partial sequential loops, where the loop condition is specified using the key fields. 


In all other cases, the system performs a table scan. 


m The runtime optimizes key accesses of HASHED tables for fully qualified keys only. In all other cases, 


the system performs a table scan. This means that you should only use HASHE 
access table entries using a fully qualified key. 


D tables 1f you want to 
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13.10 
Overview: Types of Definitions for Internal Tables EMT 


With a local table type Implicit table type With a global table type 


Local table type Global table type 


local type 


Table Table 
attributes attributes 


| 


Internal table Internal table Internal table 


local type Table global type 
attributes 
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m There are several ways to define an internal table in ABAP: 

* Use the TYPES statement to define a table type. Then use this to assign a type to one or more data 
objects or interface variables. 

* Declare the table attributes directly when you define the data object (that is, use a bound type). 
* Define an internal table using a global table type (defined in the ABAP Dictionary). 

m The tables you define using the first or second option are visible only in the program in which you define 
them. Whenever you need a table type visible from all programs, create a global table type (that is, use 
the third option). 
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13.11 


The Data Type of the Internal Table Ep 
AP 


TYPES | or DATA 
MEUCETYPES table kind 


oF line type Line type (columns) 


MINITIAL SIZER: ]. Initial size (optional) 


Table kind 


Line type (columns) 
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m To define a table type (explicitly or implicitly), you must give the type (or data object) a name, as well as 
specifying a table kind, line type, and key. 

m If you are defining a local table type, enter the kind after TYPE and the line type after OF. You must list 
the key fields after WITH. 

m You create and edit global types in the ABAP Dictionary. If you are defining a global table type, specify 
the same information on the maintenance screens. 

m For table types defined in a program, you can enter the number of lines that the runtime system should 
reserve when it initializes the data object, after the INITIAL SIZE addition. This makes sense if you 
know exactly how many lines you will want in your table when you create it. However, if your table 
needs more lines at runtime, it will not be limited in size by this addition, since the runtime system frees 
the necessary memory dynamically. 

(Internal tables are dynamic data objects). 
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13.12 


Table Attributes: Line Type ENT 


Global structure type Local structure 


: DATA 
Imnestype line type 
EE structure 


TYPE 


OF line type 
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m To specify the line type of an internal table, you can use a local structure type, a global structure type or 
a structure (that is, a data object). 

m If you use a line type, you must use a statement in the form: TYPE table kind OF line type, 
where table kind is the kind of table (see the following slide) and line type is the name of the 
structure type you are using. 

m If you use structure (data object), you must use a statement in the form: LIKE table kind OF 
line type, where structure is the name of the structure object you are using. 
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13.13 


Table Attributes: Table Kind and Key mp 


table kind) 


table kind key def 
STANDARD TABLE | [NON-UNIQUE] KEY coll ... coln 
DEFAULT KEY 


SORTED TABLE | TABLE | (UNIQUE (UNIQUE | NON-UNIQUE) KEY coll ...coln | NON-UNIQUE) KEY (UNIQUE | NON-UNIQUE) KEY coll ...coln | ...Ccoln 


pan TABLE UNIQUE KEY coll ... coln 
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m There are three parameters that you use to specify a table kind for your internal table: STANDARD 
TABLE, SORTED TABLE and HASHED TABLE 

m You specify the table key with the WITH key def addition. key def includes the names of all the 
key fields in order and specifies whether the key is to be UNIQUE or NON-UNIQUE. 

m The combination of the table kind and the key definition is very significant, because of the special 
support that certain table kinds receive with specific types of read access. You can use any of the 
following combinations: 

* For STANDARD tables: 
Either create a user-defined key by naming the key fields after NON-UNIQUE KEY, or specify the 
standard key using the WITH DEFAULT KEY addition. 

* For SORTED tables: 
List the key fields after WITH UNIQUE KEY or NON-UNIQUE KEY as appropriate. 

* For HASHED tables: 
List the key fields after WITH UNIQUE KEY. 

m Alternatively, use the pseudo-component table line, if you are specifying a table without a 
structured line type, or if the entire table line is being used as the key. For more details, see the section 
Special Situations in this unit. 
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13.14 


Line type: 
TYPES: 
carrid TYPE s carr id, 
connid TYPE s conn id, 
distance TYPE s distance, 
distid TYPE s distid, 
END OF s distance ty. 


Table type: 
TYPES: 


iain. TYPE Ey do) TABLE 
iouis distance ty 


WITH NON-UNIQUE 
KEY distance distid. 


Internal table 


DATA: Internal table 
: : f the table kind 
tt distancel&e 4239 tt distance tyf 9 
EE LY STANDARD TABLE 
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m The above example shows the definition of an internal table (tt_ distance) using a local table type 
(tt distance ty), which itself uses a local line type(s distance ty). 

m The internal table defined here is a STANDARD table with the line type s distance ty. It contains 
the columns carrid, connid, distance and distid. 

m Thedistance and distid fields are key fields. The key is not unique. 
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13.15 


Example: Sorted and Hashed Table ENT 
AP 


Sorted table: 


DATA: 


TYPE SORTED TABLE 

OF s distance ty 

WITH NON-UNIQUE KEY 
distid distance. 


Sequence 
Hashed table: 


DATA: 


distance buffer 


TYPE HASHED TABLE 

OF s distance ty 

WITH UNIQUE KEY 
carrid connid. 
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Sequence 


m The above example shows the definition of a SORTED table and a HASHE] 


same line type as the STANI 


DAR 


D table on the previous slide. 


D table. Both tables have the 


m Note that the contents of the table are in a different order. The sequence of the entries in the internal 
table in SORTED tables is determined by the sequence of key fields, since the runtime system keeps the 
table contents sorted by means of the key fields (sequence). 
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13.16 


The Standard Table Type EH 


DATA: 


t name [$42: wie» Definition by 


: l standard table type 
OF line_type. 


Interpreted by 
the system as: DATA: 


Example: 
t sflight pira sflight. 
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m There is a DEFAULT type available, used to define STANDARD tables with a bound type (the table kind 
is STANDARD TABLE, the key is WITH DEFAULT KEY). When you create a STANDARD table with a 
bound type, you can omit the STANDARD and WITH DEFAULT KEY additions, since the runtime 
system supplies them automatically. 

m Note however, that the standard table type exists for data objects only. If you are defining a table type 
that you want to use to provide a type for data objects, you must specify all of its attributes completely. 
Incomplete table types are known as generic. You can then only use them to provide a type for flat, 
table-type, interface parameters. 
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13.18 


Overview: Types of Operations cap d 
~ = mi 
Internal table Operations on one or Editing lines 
as a data object more lines in a loop 
[e 
E) 


oder 


Edit lines 


Copy Insert ( INSERT 
sequentially 


Initialize ( CLEAR) Read (READ 


Keep memory available 
Change (MODIFY 


Initialize (FREE ) —— 
Release memory Delete (DELETE 


* command block 
ENDLOOP. 


Compare using operators Insert summated 


ER (easi ) 
Sort ( SORT ) 


Array Fetch (SELECT ... 
INTO TABLE) 
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! LOOP 


You can perform three different types of operations on internal tables: 

= Operations on the whole data object: 
Elementary operations available include MOVE (copy the content line by line), CLEAR (delete the 
content, but keep the memory allocated), and FREE (delete the content and release the memory). You 
can also use all the numerical comparison operators with internal tables in logical expressions. The order 
in which the operations are performed is as follows: First, the number of lines is compared, then if 
necessary the line contents. (This is recursive for "deep" types). For more information, refer to the 
documentation on internal tables. 
You can use the SORT statement to sort the content of STANDARD and HASHED tables. This statement 
allows you to sort the table by one or more columns, specifying ascending or descending for each 
column. For more details, refer to the keyword documentation for the SORT statement. 
Youcanusethe SELECT ... INTO TABLE statement to copy the contents of database tables 
directly into internal tables. 

= Operations on all lines: 
You can use the INSERT, READ, MODIFY, DELETE, and COLLECT statements to perform operations 
on one or more lines in the internal table. The syntax of the first four of these statements is dealt with in 
the slides that follow. For the syntax of the COLLECT statement, refer to the appendix to this course. 

m Loop processing: 
Youcanusethe LOOP AT ... ENDLOOP to process the lines of the internal table sequentially. The 
exact syntax for this is dealt with in the slides that follow. 
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13.19 


Ascertaining Internal Table Attributes dp 


DESCRIBE TABLE 


LINES: c Lines Number of lines in the internal table 


(ejefeiti:E1 initial lines Number of reserved lines when table was 
KIND created 


TYP-POOL: SYDES 

| SYDES KIND-UNDEFINED 
(| SYDES KIND-STANDARD 

| SYDES KIND-SORTED 

| SYDES KIND-HASHED 
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m The DESCRIBE TABLE statement allows you to display the following information about an internal 
table: 
* Number of lines in the internal table 
After LINES, you must enter a type i variable, no of lines in this example). 
* Size of the initially reserved table lines: 
After OCCURS, you must enter a typei variable, initial lines in this example). 
* Table kind: 
After KIND, you must enter a type c variable. The runtime system fills the variable with a constant 
defined in the type group SYDES - SYDES KIND-UNDEFINED, SYDES KIND-STANDARD, 
SYDES KIND-SORTED,or SYDES KIND-HASHED. 
m Note: 
You can use the information about the number of lines in an internal table to query at runtime whether 
an internal table has any entries in it at all. Alternatively, use the IS INITIAL query. The generically 
typed interface parameters of subroutines, function modules, and methods can use the information on the 
table kind. 
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13.20 


Limiting the Scope of Line Operations: Target 
Records and Access Type 


Table key 


Line index (for index tables) 


Condition applied to any number of columns 


Index interval (for index tables) 


Work area Field symbol 
M—» es 


Direct access by 
ereferenced pointer 
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m Almost all line operations and loop processing statements offer you several options for specifying the 
target set of records to be processed. You can specify these target records by declaring a key or index, by 
formulating a condition that applies to some of the columns, or by specifying an index interval. Your use 
of these options is limited only by the table kind you have chosen. 

Example: You cannot specify a line in a HASHED table using an index. 

m When you access table lines, many line operations offer you two options: You can either copy the data 
into a structure with the same type as the line type of the internal table, or you can set a pointer to a table 
line and access the data in that line directly. 

m In particular, when you insert table lines, you can pass the data to be inserted using another internal 
table. 

m Note that all statements either set a return value or trigger a runtime error. If a return code has been set, it 
is stored in the sy-subrc field after the statement has been executed. Runtime errors are only triggered 
if the data passed at runtime are crucial in determining whether or not the operation can be performed. 
Example: You try to insert a new line into a SORTED table using an index. If by chance you insert the 
new line in exactly the right place in a sorted table, the system performs the operation. If not, the system 
returns a runtime error. 
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13.21 


Background Information: Field Symbols ERU 
Mz on 


Data objects in the ABAP program 


Define a field symbol 


DATA: var a TYPE i value 4. «fs» 
FIELD-SYMBOLS Ec. TYPE i. 


Assign a data object to a field symbol 


PNE eH «fs» ro var a. >» 


Assign a value to a data object 
using a field symbol 


«ts» = 771 => 


Time 
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m You can create a pointer to a data object in ABAP using a field symbol. 

m First, declare a data object using the FIELD-SYMBOLS statement. This data object can contain a pointer 
to another data object at runtime. Where possible, you should give the field symbol the same type as the 
data object (type i, in this example). 

m Giving a field symbol a structure type allows you to access individual components of a structured data 
object. 


m Note that the pointed parentheses (<>) are part of the name of the field symbol - that is, the name of the 
field symbol is <fs>. To point a field symbol at a data object, you must assign it to the object 
data object using the ASSIGN «fs» TO data object statement. 


m Youcan use the field symbol to access the content of the data object to which it points - either to read or 
to change this content. 
m You can "redirect" a field symbol to a different data object at runtime using the ASSIGN statement. 
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|! By field symbol 


You can always 
specify the set of 
target records by 

key or index 


r 
1 
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1 
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1 
1 
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1 
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1 
[ 
1 
[ 
[ 
1 
[ 
1 
[ 
1 
[ 
[ 
[ 
[ 
1 
[ 
[ 
[ 
1 
[ 
1 
1 
[ 
1 
[ 
1 
[ 
1 


Without access to data in lines 


Condition applies to 
more than one line 


m You can perform the following operations on internal tables: 

* Insert one or more lines. 

* Read individual lines. You can also copy them after reading them or use a field symbol. 

* Change one or more lines. If you want to change several lines by using statements, specify the target 
records with a condition applied to one or more columns in the table. You can also copy individual 
lines when changing them or use a field symbol. 

* Delete one or more lines. 

m When you perform any of these operations, you can specify the target records either by index or key - 
provided the table kind supports them. 
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Key from "wa 
specifies line 


INSERTMEMINTO TABLE ital 


in <A | R 
INSERT A wa phigio] 1tab pes)» n. 


INSERT LINES OF ; 
itab1 itab2 — only if itab1 is 
iae - an index table 


INTO TABLE 
INTO 
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To insert lines into a table, use the INSERT statement: 

Using INSERT wa INTO TABLE itab, you insert the line whose data are stored in wa into the internal 
table. The record is inserted with reference to the table key. In STANDARD tables, the new line is 
appended to the end of the table. 

Using INSERT wa INTO itab INDEX n, you insert the data from wa into the internal table at the 
line with the index n. If n is an index value within the internal table, the lines with the index value 
greater than or equal to n are pushed downwards. If n+1 is greater than the number of lines in the 
internal table, the line is not inserted. 

Always add new lines to a SORTED table using the key. If you try to insert a line into a SORTED table 
using the index, you will not succeed unless, by chance, the line has exactly the same index number as it 
would have when correctly sorted. Otherwise, a runtime error occurs. 

Use INSERT LINES OF itabl INTO TABLE itab2 to insert the lines of the internal table itab1 
into the internal table itab2. If itab1 is an index table, you can limit the number of lines to be 
inserted using an index interval (FROM n1 TO n2). 

If your target table is an index table, you can use INSERT LINES OF itabl INTO itab2 to insert 
the lines of the internal table itab1 into the internal table itab2. You can then specify the line index 
from which the lines are to be inserted using INDEX n. Also, if itab1 is an index table, you can limit 
the number of lines to be inserted using an index interval (FROM n1 TO n2). 

Alternatively, if the table is a STANDARD table, use the APPEND wa TO itab statement to append the 
contents from wa to the internal table itab. For more details, see the appendix to this course. 
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Reading a Single Record into a Work Area Using Ea 
the Line Number SAP 


itab 


ns n m Index 
A NRA itab fay n payne) wa [ options ]. 


[ options ] 


COMPARING list 1 
TRANSPORTING list 2 


Any field list 


| ALL FIELDS 


fk 
Ü NO FIELDS 
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m You can read single table lines from index tables using the READ TABLE itab INDEX n INTO wa 
statement. After INDEX, enter the index of the line you want to read. If the system was able to read the 
line, it sets the return code to sy-subrc = 0 and stores the data from the line in wa. If the system was 
unable to read the line, it sets the return code to sy-subrc <> 0 and leaves the content of wa 
unchanged. 

m Use the TRANSPORTING addition to specify the columns for which you want to transport data: 

* [f you do not want to read any data, but simply want to ascertain whether or not line n exists, (using 
the value in(sy-subrc -, usethe TRANSPORTING NO FIELDS addition. 

* If you want to read some of the columns in the line only, specify them after TRANSPORTING. 
Separate each column name with a space. 

m Use the optional COMPARING f1 ... fm addition to find out whether or not the line n contains the 
content you specify in one of its columns: Copy the values of all the columns that you want to compare 
into wa; then specify these columns in the READ statement after the COMPARING addition. If the system 
was able to read the line and if all the columns listed contain the values stored in wa, it sets the return 
code sy-subrc to zero. If the system was able to read the line, but if one or more of the columns does 
not contain the value stored for it in wa, it sets the return code sy-subrc to two. If it could not read the 


line, it sets the return code to greater than two. 
m The COMPARING ALL FIELDS addition provides a shorter syntax for comparing all the columns. 
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Reading a Single Record into a Work Area Using Ed 
the Field Contents SAP 


Quem key 


md ENS | Table key from wa1 


+ D Explicit table key 


e Mi ooo E Any content from the field list 


ANI AA itab key ge wa [ options ]. 


Same as index access 


FROM wal 
WITH TABLE KEY kl = f1 


Any field WITH KEY coll = f1 ... colm 
contents [BINARY SEARCH] 
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m You can read individual lines from any kind of table using READ TABLE itab key INTO wa. Use 


either a table key, or a comparison for some of the columns, as the search criterion key. 


m If you want to use a table key, you have two options: 
* Copy the key field values of the entry you want to read into the work area wal and use READ TABLE 


itab FROM wal 


INTO wa. Provided sy-subrc = 0, the system stores the result of the READ 


statement in the work area wa. Note that the values in wal that you have not explicitly filled contain 


appropriately typed initial values. Thus, the REA! 
for a line that has initial values in the key fields that were not declared explicitly. 


D TABLE itab FROM wal statement searches 


Note: You can use the work area wa for both declaring the key fields and receiving the result: READ 
TABLE itab FROM wa INTO wa. 


Evaluate the key fields explicitly using the call READ TABLE itab WITH TABLE Kl 


El 


kn = fn statement. In this case, you must fill all the key fields. 


EY kl = 


m You can specify a formulated search condition to be applied to any columns using READ TABLE 
itab WITH KEY ....Ifyou do, bear in mind the guidelines in the Notes on Performance section of 


this topic. 
m However, you can only use dynamically formulated read accesses using the key and the READ TABLE 
itab FROM wa statement. 
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13.26 


Reading a Single Record Using a Field Symbol EH 


ASSIGNING|<}a-j>5 


<fs>-field 1 


Same as when reading into a work area 
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m You can use either a work area or a field symbol to access the individual lines in a table you want to 
read. 

m To use a field symbol, first define it using FIELD-SYMBOLS «fs». Give it the same type as the line 
type of the internal table that you want to read. 
Example: FIELD-SYMBOLS «fs» LIKE LINE OF itab. 

m Set the pointer to the correct line using the ASSIGNING «fs» addition instead of INTO. You can use 
any search criterion you want. 

m You can access the components of the structure directly using the component names in the line type: 

e You can directly address elementary components in the line type using <fs>-field 1. 


* Ifthe line type contains structured components (a structure or internal table), 
«fs»-component name points to the entire structured component. To access the sub-components 
of this structured component, you need another field symbol. 
m Note: 
If you are searching for a specific string in an internal table, you can also use the SEARCH statement. For 
more details, refer to the keyword documentation for the SEARCH statement. 
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Changing the Table Using a Work Area mp 


Key from "wa" 
specifies line 


MODIFY TABLE 


TRANSPORTING 


n Eo ope” itab le; wa INDEX n 


TRANSPORTINGE: 


WHERE MODIFY AE ROM 


} log expr. TRANSPORTING $l 


WHERE 


© SAP AG 1999 


m The MODIFY TABLE itab FROM wa statement allows you to change the content of one line of the 
internal table itab. The runtime system specifies the line to be changed using the key values from the 
work area wa and changes the non-key fields using the other fields. if your table has a non-unique key, 
the system changes the first entry only (using a linear search algorithm in STANDARD tables and a 
binary search algorithm in SORTED tables). If you want to change only some of the fields (that is, 
columns) in a line, you must specify these after TRANSPORTING. 

m You can change the nth line in an index table using MODIFY itab FROM wa INDEX n. Note that 
all the fields of the structure wa will be copied. Since changes to key fields in SORTED and HASHED 
tables can cause non-catchable runtime errors, you must use the TRANSPORTING addition in this case. 

m If you want to make the same changes to several lines in a table, use the MODIFY itab FROM wa 
TRANSPORTING f1 f2 ... WHERE log expr statement. Specify all the columns to be changed 
after TRANSPORTING. You must place the new values for these columns in the work area wa. Specify a 
condition for the line using the WHERE clause. If you do, bear in mind the guidelines in the Notes on 
Performance section of this topic. 
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Changing a Single Record Using a Field Symbol ENT 


ASSIGNING 


Same as when reading into a work area 


Must not be a key field 
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m Instead of changing an individual line in a table using a work area, you can also change it using field 


symbols. First use READ ... 


ASS 


GN 


NG <fs> to assign a field symbol to the line to be changed. 


Then change the components directly using the field symbol components <fs>-field 1 = 

m When you assign the field symbol using READ ... ASSIGNING you can specify the line to be read 
using a key (WITH TABLE KEY), index (for index tables), or a condition (WITH KEY). 

m Note that you cannot change key fields in SORTED or HASHED tables. - trying to do so causes a runtime 


error. 
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13.29 


COI 
AF 


itab Fable key DELETE TABLE 


wa 
«<= 


*— ef) explicit 


FROM wa 
WITH TABLE KEY 
kl = f1 


DELETE 


Delete using a condition 


EEE | DELETE 
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m Use the READ TABLE itab INDEX n INTO wa statement to delete single table lines from index 
tables. Specify the line you want to delete using the table key. There are two ways of doing this: 
* Copy the key field values of the entry you want to delete into the work area wa and use DELETE 
TABLE itab FROM wa. 
* Fill the key fields explicitly in the DELETE statement using the WITH TABLE KEY kl = 
fl ... kn = fn addition instead of FROM wa. 
m You can delete the nth line from the index table itab using DELETE itab INDEX n 
m If you want to delete several lines from an internal table, use the DELETE itab WHERE log expr 
statement. The condition that specifies the lines you want to delete is declared in log_expr, in the 
WHERE clause (where log expr is any logical expression applied to the columns). 
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13.30 


Loop Processing 


y) INTO wa 


ASSIGNING <fs> 
TRANSPORTING NO FIELDS 


Index table: 


ENDLOOPR : 
Current pass in 


sy-tabix 
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m Usethe LOOP AT itab result ... ENDLOOP statement to perform loop processing on the lines 
of the internal table itab. The system then executes the statement block between LOOP AT itab... 
and ENDLOOP for each loop pass. Result stands for: 

* INTO wa: 
The system copies the table line it has processed in each loop pass into the work area wa 
e ASSIGNING «fs»: 
The field symbol «£s» is assigned to the line concerned. 
* TRANSPORTING NO FIELDS: 
No data is copied. Use this variant if, for example, you simply want to determine the number or 
indexes of the lines processed by the loop. 

m Specify the number of lines that the loop is to process using a WHERE clause (condition for any 
columns). If you do, bear in mind the guidelines in the Notes on Performance section of this topic. 

m In an index table, limit the number of lines processed in the loop by declaring an index interval. 

m While the loop is being processed, The system places the index of the current loop pass in the system 
field sy-tabix. 

m Note that in index tables, you can perform all the line operations (which you previously performed on 
the line specified in the TNDEX n addition) without this addition in the loop. The operation is then 
performed on the current line (line index = loop counter). 
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Loop Processing and Table Kinds ER 
AP 


LOOP AT itab INTO wa 


ENDLOOP. 
r- log expr 


First n key fields Any logical expression 
gaps filled with "=" for columns 


Loop only through entries 


for which log expr. is true Table scan 


SORTED 


Table scan 


Table scan: 
loop sequence = append sequence 


n 
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m The runtime system generally processes loops with a WHERE clause by performing a table scan - that is, 
determining whether the condition in the WHERE clause is true for each line in the table. In HASHED 
tables, the table entries are processed in the order in which they have been inserted. (Technically, 

INSERT has the same effect as APPEND). 

m SORTED tables are the only exception to this rule. For them, the runtime system optimizes performance 
at runtime under the following condition: 

In the WHERE clause, only the first n key fields are filled with a "=" (no gaps). (n is less than or equal to 
the number of all key fields). As a result, the loop is only performed on the lines that match the condition 
in the WHERE clause. Since the table is sorted, the first line can be specified to optimize performance at 
runtime (using a binary search). 

m Summary: 

m Use SORTED tables if you want to implement partial sequential loops on internal tables (where the first 
n key fields are filled with "="). 
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Accessing Single Records: 
Completely and Partly Qualified Keys 


READ TABLE itab INTO wa 
WITH TABLE KEY key. 


must be completely 
qualified 


READ TABLE itab INTO wa 
WITH KEY key. 


Complete/part key optimized 
left-aligned without gaps 


By qualified key 


table scan table scan 
table scan 


Any component 
condition 
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m Whenever you want to read individual table lines by declaring a complete key, use the READ 
TABLE ... WITH TABLE KEY statement (fastest single record access by key). The runtime system 
supports this syntax variant especially for SORTED and HASHED tables. If the table is a STANDARD 
table, the runtime system performs a table scan. 

The same applies if you have copied the values from all key fields of the entry to be read into the work 
area wa and then use READ TABLE itab FROM wa. 

m The runtime system carries out the syntax variant READ TABLE ... WITH KEY (read an entry after 
applying any condition) using a table scan. 

The only exception to this rule applies to SORTED tables, if you fill the first n key fields with "=" (no 
gaps), where n <= number of key fields. 


Summary: 

m Whenever possible, use READ TABLE ... WITH TABLE KEY or the variant with a 
correspondingly filled work area. 

m If you need to use READ TABLE ... WITH KEY, make your internal table a SORTED table. 
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Access Using Field Symbols Ep 


READ TABLE itab READ TABLE itab 


ASSIGNING <£s1> ig wal 


WITH TABLE KEY ... . WITH TABLE KEY 
READ TABLE <fs1>-co13 READ TABLE wal-col3 


ASSIGNINGR<iIYD INTOR wa 2 


WITH TABLE KEY ... . WITH TABLE KEY 


«fs2» (9 0 
bu d 


<fs1> 


coll col2 col3  col4 ee col col2 col3  col4 
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m Instead of READ TABLE ... INTO you can use READ TABLE ... ASSIGNING, a variant that improves 
performance when reading records witha line width of 1000 bytes or more. If you then change the lines 
you have read using MODIFY, the READ ... ASSIGNING variant improves performance with records 
of 100 bytes line length or more. 


m The same applies to the LOOP ... INTO in comparison with LOOP ... ASSIGNING. The 
LOOP ... ASSIGNING variant offers better performance at runtime for any loop of five loop passes 
or more. 


m Both field symbol variants are much faster than work area variants, in particular when you use nested 
internal tables. This is because, if you use work areas instead, the whole inner internal table is copied 
(unless you prevent this by using a TRANSPORTING addition). 

m Always assign a type to field symbols, if you know their static type (again, for performance reasons). 

m Note: 

Ifyouuse READ TABLE ... ASSIGNING the field symbol points to the originally assigned table 
line, even after the internal table has been sorted. 

m Note that you cannot change key fields in SORTED or HASHED tables. Trying to do so causes a runtime 
error. 

m The following restrictions apply to LOOP ... ASSIGNING «fs»: 

* You cannot use the SUM statement in control level processing. 
* You cannot reassign field symbols within the loop. The ASSIGN do TO «fs» and UNASSIGN 
«£s» inside a loop cause a runtime error. 
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field name 


field name 


table line seudo-component 
= able line 


WITH KEY|table line seudo-component 
= able line 
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m Use an unstructured line type if you need a single-column internal table. The slide shows an example of 
a single-column internal table with the line type field name. 

m To declare an explicit key, you must use the pseudo-component table line. 

m The syntax of operations on internal tables with an unstructured line type that apply to the whole object 
(CLEAR, MOVE, ... array fetch) is the same as for tables with a structured line type. 

m You can use internal tables with an unstructured line type in the following ABAP statement (among 
others): 
* SET PF-STATUS .. EXCLUDING itab. (deactivate function codes dynamically) 
* SPLIT .. INTO TABLE itab. (split a string dynamically) 
* SELECT (itab) ... (Declare a target set of records dynamically) 
* SELECT ... WHERE (itab). (Dynamic selection condition) 
* CALL METHOD .. PARAMETER-TABLE itabl EXCEPTION-TABLE itab2. (declare an 

interface dynamically) 
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Internal Tables with a Header Line mp 


; Syntax variant 1 


Data object itab 
WITH HEADER LINE J Work area 


Header line 
ı Syntax variant 2 (obsolete) 


OCCURS 
WITH HEADER LINE 


BEGIN OF OCCURS 


END OF 
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m As well as the internal tables we have discussed, you can define internal tables with a header. These 
consist of a pair of components - the internal table itself (the body) and the work area (header), with the 
same line type. The header and the body have the same name, which sometimes simplifies the syntax for 
table accesses. 

m There are several possible syntax variants used to define internal tables with header lines, some of which 
are shown in the slide. 

m Internal tables with header lines are the oldest form of internal table. 

m Note: 

* Many statements have a different effect on internal tables with a header than they would on normal 
internal tables. You can then address the body separately using " []" . 
Example: 
The CLEAR itab statement initializes only the header line, whereas in an internal with no header, it 
initializes the contents of the entire table. 
You can delete the body of an internal table with a header using CLEAR itab[] or REFRESH 
itab. 

* You cannot use internal tables with a header line in ABAP Objects - that is, within classes or 
interfaces. 
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Selection Options and Selection Tables ey 


SELECT-OPTIONS 


| Link to selection screen 


l Data object 


y Identically-typed data object without — — -— = 
1 header or link to selection screen 


sign (1) low LIKE 
TYPE c carrid 


option (2) high LIKE 
TYPE c carrid 
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m Use the SELECT-OPTION statement to create an internal table with a header, for which the runtime 
system automatically creates an input dialog for value sets for a selection screen. The system 
automatically inserts the appropriate entries in the internal table, from the user input. For more details, 
refer to the keyword documentation for the SELECT- OPTIONS statement. 

m From Release 4.6 onwards, you can use the RANGE OF addition to the TYPES and DATA statements to 
define a corresponding (internal) table without a header line. 
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13.39 


Internal Tables: Unit Summary Ey 
AF 
Eh] You are now able to: 


e Define an internal table 


e Perform operations on internal tables 


e Identify table kinds and use them appropriately in 
different situations 
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13.40 Exercise 


Unit: Internal Tables 


Topic: Basics 


At the conclusion of these exercises, you will be able to: 
* Define internal table types locally in programs 

* Define internal tables 

* Insert data records in internal tables 

e Sort internal tables 

* Program loop processing for internal tables 


Extend your program to make it sort the extracted data records by 
Flight date, airline, and flight number. In addition, make sure that 


) ) ) the following are displayed in different colors on screen: 


e Data records for which the date is in the past 


e Data records where the date is on or before a specified key 
date. 


e Data records where the date is after this key date. 


>» | Program: ZBC402 ## STANDARD 


l | | | | | | Template: your solution from the previous exercise or 
SAPBC40 2 C CMS_WH ILE 


Model solution: SAPBC402_TABS_STANDARD 


where ## stands for your (two-digit) group number. 


1-1 Copy your program, ZBC402_##_WHILE, or the model solution 
SAPBCA402 CCMS WHILE, to a new program, and call it ZBC402 ## STANDARD. 


1-2 To display the extracted data records in a sorted list, you must store the extracted data 
temporarily. Use an internal table to do this. Fill it with the extracted data, then sort it, 
and display it in a loop, as follows: 


1-2-1 Define: 
(a) a table type (suggested name: tt £lights) 
(b) an internal table (suggested name: it flights), which uses this table 
type. 
The internal table will store the data temporarily. Use the following information 
to define your table types: 
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Attribute 
Table kind 
Line Type ZBC402 iHi FLIGHT 


(or BC402 S FLIGHT) 


Key components - carrid 
- connid 
- fldate 


NON-UNIQUE 


Unique/non-unique 


1-2-2 Fill the internal table with the extracted data using the WHILE loop. Use the 
wa flight structure as a work area for the internal table. 


1-2-3 Sort the internal table by flight date, airline, and flight number and display the 
contents using a LOOP. 


Use your WRITE statements from the WHILE loop. 


1-2-4 Test your program. 


1-3 Make sure that the individual flight dates are displayed in color according to the 
following criteria: 


- Display flights that occurred in the past with the background color 
col negative. 


- Display flights that occurred between today's data and the key date with the 
background color col total. 


- Display flights that occurred in the past with the background color 
col positive. 


Follow the instructions below: 


1-3-1 For the key date, create a variable (suggested name: next date) with the 
type d. In the START-OF-SELECTION event, fill this with the key date. 
Specify the key date as 30 days in the future. 


1-3-2 In the display loop for the internal table it flights: use the FORMAT 
COLOR col... statement and the criteria above to display the list in color. 
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Exercise 2 


Unit: Internal Tables 
Topic: Using Table Kinds 


At the conclusion of these exercises, you will be able to: 


e Define and use tables with both unique and non-unique keys 
that optimize performance and use the SORTED algorithm 
appropriately. 


Extend your program so that it does not display any duplicates in 
the list. Display the records that appear in the string more than 


) ) ) once in a separate list after the first list, sorted by airline, flight 


number, and flight date. 


Allow the user to input the key date, which determines the 
display colors for the different lines, using a selection screen. 


p" ~~ Program: ZBC402 ## SORT 
| | j i | i f Template: your solution from the previous exercise or 


2-1 


2-2 


2-3 


SAPBC402_TABS_STANDARD 
Model solution: SAPBC402 TABS SORT 


where ## stands for your (two-digit) group number. 


Copy your program, ZZBC402_## STANDARD, or the program 
SAPBC402 TABS STANDARDS, to a new program, and call it ZBC402 ## SORT. 


Use the table kind SORTED instead of STANDARD for it flights. Use the 
appropriate key components to sort the list as follows: 


2-2-] Change the table type tt_ flights so that your program uses the table kind 
SORTED with a suitable key. 


2-2-2 Remove the statement that sorts the internal table it flights (either delete 
it or comment it out). 


Change the program so that it flights does not contain any duplicate entries. 
Collect records that occur more than once in a second internal table and display them 
underneath the it flights data as follows: 


2-3-1 Make sure that the key for it flights is unique. 
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2-3-2 Define a second internal table (suggested name: it doubles), in which you 
collect all the duplicate records. Use a suitable table kind, line type, and key. 


2-3-3 Use the return code of the INSERT TABLE command to recognize duplicate 
records and store them in it doubles. 


2-3-4 Check that it doubles contains data. If so, display it (without using color) 


in the list. 
(a) Copy the WRITE statement from the loop performed on 
it flights. 
(b) Use the FORMAT ... statement to end the use of colors 


when displaying the list. For more details, refer to the 
keyword documentation for the FORMAT statement. 


2-4 — Now check that the user can input the key date on a selection screen. Follow the 
detailed instructions below: 


2-4-1 Create a parameter (suggested name: p date) and assign the type of the data 
element s date to it. Create a selection text for your parameter. (We suggest: 
“Key date”). 

2-4-2 Make sure that the system proposes a default key date of 30 days in the future, 
by storing an appropriate value, p date, in the data object at the event. 


2-4-3 Make sure that the date the user enters is in the future, in the AT 
SELECTION-SCREEN program event. If the user makes an invalid entry, force 
him or her to enter a new date by triggering the following error message: 


Fl 


Message type 


Message class BC402 


Message number 038 


2-4-4 Comment out or delete the definition and initial value of the next date 
variable. 
In the display loop for it flights, replace the variable next date with 
p date. 
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EP 2) 


p — 


2-5 


2-6 


2-7 


Copy yo 


Exercise 2: Optional Section 


Unit: Internal Tables 
Topic: Using Table Kinds 


At the conclusion of these exercises, you will be able to: 


e Adapt local program data objects to the types of interface 
parameters modules. 


e Generate ABAP lists using a module. 


Allow the user to choose whether to display the list as an ABAP 
print list (using WRITE) or using a standard display tool (the 
ALV Grid Control). 


Program: ZBC402 ## SORT OPT 


Template: your solution from the previous exercise 
or SAPBC402 TABS SORT 


Model solution: SAPBC402 TABS SORT OPT 


where ## stands for your (two-digit) group number. 


ur program, ZBC402 iHi SORT, or the model solution 


SAPBC402 TABS SORT, to a new program, and call it ZBC402 ## SORT OPT. 


Allow the user to choose how the system will display the list, using a checkbox on a 
selection screen. To do this, create a development class (suggested name: p list, 
type: c, addition: AS CHECKBOX, selection text: "Display as an ALV list"). 


IF p.i 


ist IS INITIAL. 


X "Conventional" list using WRITE 


ELSE. 


* List displayed using function module (ALV) 


ENDIF. 


Implement the logical processing block indicated by the comment “List displayed 


using function module (ALV)” in section 2-6. Use the function module 
BC402 ALV LIST OUTPUT. This module expects two database tables and displays 
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their contents using the ALV Grid Control (a tool used to display non-hierarchical 
lists). 


Detailed information on using the ALV Grid Control is not 
part of this course. For this reason, you use a function 
module that encapsulates all the necessary technical details, 
which you can treat as a “black box." 


If you want to learn about the techniques used in the function 
module, and then apply them yourself, refer to the 
implementation of this function module in the appendix unit 
of this course. For more information on the ALV Grid 
Control, see: 


e The online documentation 
e The example programs of the development class SLIS 


e The ABAP Workbench training course BC412: Dialog 
Programming with EnjoySAP Controls 


You must pass two STANDARD tables of type BC402 T FLIGHTS COLOR to the 
function module BC402 ALV LIST OUTPUT. These tables contain the list data for 
the scenario we are dealing with in this course (that is, flight dates). The table kind 
STANDARD is the kind used by the ALV Grid Control, which the function module 
uses. Since you want to use color on the list data passed to the function module, the 
line type of these two internal tables contains a COLOR column. You can then store the 
color values col negative,col total,col positive, and 

col background for each line, in this column. 


You have stored the list data in the internal tables it flights andit doubles. 
Since these internal tables are SORTED, you must copy their contents to two 
STANDARD tables and fill the COLOR column with the appropriate color values: 


2-7-1 Define two internal tables (suggested names: it listlandit list2) 
with the type BC402 T FLIGHTS COLOR, and an associated work area 
(suggested name: wa list). 


2-7-2 Include the type pool col in your program (using TYPE-POOLS col.). It 
contains the constants col negative,col total,col positive, and 
col background and thus allows you to use these constants outside the 
WRITE and FORMAT statements. 


2-7-3 Copytheit flightsandit doubles tables to the internal tables 

it listlandit list2 respectively. Use two loops to do this, and to fill 
the COLOR column. - 

ip Eltohes: 
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Logical condition 


te« sy-datum 


datum AND p date, 


inclusive 


fldate > p date 


fldate BETWEEN sy- 


Color value 


col negative 


col total 


col positive 


Always use col background to display it doubles. 


dme 


Call the function module BC402 ALV LIST OUTPUT and pass the tables 


it listlandit list2 to it. If your program triggers an exception when 


it executes the function module, it should display an error message. (We 
suggest “Error processing Control”). 


2-7-5 Test your program ©. 
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13.41 Solutions 


Unit: Internal Tables 


Topic: Basics 


14ABAP program 


REPORT  sapbc402 tabs standard. 


TYPES: 


BEGIN OF st flight c, 


mandt (3) TYPE c, 
carrid(3) TYPE c, 
connid (4) TYPE n, 
fldate (8) TYPE n, 
price(20) TYPE c, 
currency (5) TYPE €, 
planetype(10) TYPE C, 
seatsmax (10) TYPE n, 
seatsocc(10) TYPE n, 
paymentsum(22) TYPE c, 


END OF st flight c, 


tt flights TYPE STANDARD TABLE OF bc402 s flight 
WITH NON-UNIQUE KEY carrid connid fldate. 


DATA: 
datastring TYPE string, 
set string TYPE string, 


wa flight c TYPE st flight c, 
wa flight TYPE bc402 s flight, 


it flights TYPE tt flights, 
next date TYPE d. 


CONSTANTS: 


L1 


i VALUE 30. 


c num TYP 
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START-OF- 


SELECT 


next date = s 


ION. 


y-datum + 30. 


CALL FUNCTION 'BC402 CREATE SEP STRING' 


im 
im 
im 


im 


IMPORTIN 


ex 


no 


OTHI 


EXPORTING 


number - c num 
table name - 'SFLIGHT' 
separator = '#' 

1 ' 


unique = 


G 


string datastring 


EXCEPTIONS 


data = 1 


ERS = 2. 


IF sy-subrc <> 0. 


MESSAGE a03 


ENDIF. 


IF sy 


-subrc 


8(bc402). 


VHILE NOT datastring IS INITIAL. 
SHIFT datastring BY 2 PLACES. 


SEARCH datastring FOR '##'. 


=:10% 


set string = datastring(sy-fdpos). 


SHIFT dat 


SPL 


MOV 


IT set 


GI 
tn 


astring BY sy-fdpos PLACI 


string AT '#' INTO 
light c-mandt 
light c-carrid 
light c-connid 
light c-fldate 
light c-price 


light c-currency 


light c-planetype 


light c-seatsmax 


light c-seatsocc 


light c-paymentsum. 


E-CORR 


ESPONDING wa flight c TO wa flight. 


INSERT wa flight INTO TABLE it flights. 


(C) SAP AG 


BC402 


ENDIF. 


Lt] 


ENDWHILE. 


SORT it flights BY fldate carrid connid. 


LOOP AT it flights INTO wa flight. 


if wa flight-fldate < sy-datum. 


FORMAT COLOR COL NEGATIVE. 


elseif wa flight-fldate between sy-datum and next date. 


FORMAT COLOR COL TOTAL. 


else. 


FORMAT COLOR COL POSITIVE. 


date DD/MM/YYYY, 


endif. 

WRITE: / 
wa flight-carrid, 
wa flight-connid, 
wa flight-f] 
wa flight-price CURR 
wa flight-currency, 
wa flight-planetype, 
wa flight-seatsmax, 
wa flight-seatsocc. 

ENDLOOP. 


ENCY wa flight-currency, 
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Solutions to Exercise 2 


Unit: Internal Tables 
Topic: Using Table Kinds 


15ABAP program 


REPORT  sapbc402 tabs sort. 
TYPES: 
BEGIN OF st flight c, 


mandt (3) TYPE c, 
carrid(3) TYPE c, 
connid (4) TYPE n, 
fldate (8) TYPE n, 
price (20) TYPE c, 
currency (5) TYPE: ©} 
planetype(10) TYPE c, 
seatsmax (10) TYPE n, 
seatsocc(10) TYPE n, 
paymentsum(22) TYPE c, 


END OF st flight c, 


* note: --» table kind: SORTED 
* --» key: UNIQUE 


* --> key order:  1-fldate, 2=carrid, 3=connid 


tt flights TYPE SORTED TABLE OF bc402 s flight 


WITH UNIQUE KEY fldate carrid connid. 


DATA: 
datastring TYPE string, 
set string TYPE string, 


wa flight c TYPE st flight c, 
wa flight TYPE bc402 s flight, 


it flights TYPE tt flights, 
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* internal table for the duplicates 
it doubles TYPE SORTED TABLE OF bc402 s flight 
WITH NON-UNIQUE KEY carrid connid fldate. 
* next date TYP 


El 


d " «-- substituted by p date 


* 


Lt] 


CONSTANTS c num TYPE i VALU 


30. 


PARAMETERS: 
p date TYPE s date. " <-- NEW 


INITIALIZATION. 
* initialize p date 


p date = sy-datum + 30. 


AT SELECTION-SCREEN. 
* check user input for p date 
IF p date « sy-datum. 
MESSAGE e030 (bc402). " <-- 'invalid date' 
ENDIF. 


START-OF-SELECTION. 


* next date = sy-datum + 30. " «-- taken out 


CALL FUNCTION 'BC402 CREATE SEP STRING' 


EXPORTING 


im number c num 

im table name = 'SFLIGHT' 
im separator = '#! 

im unique mL 


IMPORTING 


ex string = datastring 


EXCEPTIONS 


no data zu 


OTHERS = 2. 


IF sy-subrc <> 0. 


MESSAGE a038 (bc402). " «-- 'no data found' 


ENDIF. 
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WHI 


E NOT datastring IS INITIAL. 


HIFT datastring BY 2 PLACES. 


EARCH datastring FOR '##'. 


IF sy-subre = 0. 


set string - datastring(sy-fdpos). 


GI 
n 


SHIFT datastring BY sy-fdpos PLACI 


SPLIT set string AT '#' INTO 


wa flight c-mandt 

wa flight c-carrid 

wa flight c-connid 

wa flight c-fldate 

wa flight c-price 

wa flight c-currency 

wa flight c-planetype 

wa flight c-seatsmax 

wa flight c-seatsocc 

wa flight c-paymentsum. 
MOVE-CORRESPONDING wa flight c TO wa flight. 


INSERT wa flight INTO TABLE it flights. 


X. ^ sn nn nn nn ni 
* NEW NEW NEW 
RS eee ee ee 
IF sy-subrc <> 0. " duplicate found 
INSERT wa flight INTO TABLE it doubles. " store duplicate 
ENDIF. 
Re — AAA 
ENDIF 
ENDWHILE 
| mE 
* SORT it flights BY ... " «-- taken out 
gcc CC" CL" C pin id Pre ie ee fe 


LOOP AT it flights INTO wa flight. 


IF wa flight-fldate < sy-datum. 


FORMAT COLOR COL NEGATIVE. 


I 


ELSEIF wa flight-fldate BETW 


EN sy-datum AND p date. 


FORMAT COLOR COL TOTAL. 
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ELSE. 


El 


FORMAT COLOR COL POSITIVE. 


ENDIF. 
WRITE: / 
wa flight-carrid, 
wa flight-connid, 
wa flight-fldate DD/MM/YYYY, 


wa flight-price CURRENCY wa flight-currency, 


wa flight-currency, 
wa flight-planetype, 
wa flight-seatsmax, 
wa flight-seatsocc. 
ENDLOOP. 
Ke i A ee A A aS eS A ee oS ee ee ee = == 
* NEW NEW NEW 
E A A ie ee ee ne en ee nee ecce——ceecc—eee e 


FORMAT RESET. 


IF NOT it doubles IS INITIAL. 
SKIP 2. 
WRITE: / text-dob. 


* (dob): 'The following data sets occurred more then one time:' 


SKIP. 
LOOP AT it doubles INTO wa flight. 
WRITE: / 

wa flight-carrid, 
wa flight-connid, 
wa flight-fldate DD/MM/YYYY, 
wa flight-price CURRENCY wa flight-currency, 
wa flight-currency, 
wa flight-planetype, 
wa flight-seatsmax, 
wa flight-seatsocc. 

ENDLOOP. 

ENDIF. 
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Solutions to Exercise 2 (Optional Sections) 


Unit: Internal Tables 
Topic: Using Table Kinds 


16ABAP program 


*& Report SAPBC402 TA 


*& 


*& sol 


lution of exercise 2 


*& list output can be selec! 


(optional parts): in 


ro 


ternal tables 


ted by parameter p list 


a 


with two ALV 


D 


UT. 


V directly, 


or attend to classroom 


'ABAP Dialog Programming Using Enjoy-SAP 


* 


* 


details are covered * 


* 


please * 


* 


* 


*& p list - : list output as ABAP print lis! 

*& 'X': list output with ALV Grid Cont 

*& 

*& NOTE: Since the implementation of list output 

*& controls is no course objective, all 

*& in function module BC402 ALV LIST OUTE 

*& If you are interested in how to use A 

*& use demo programs in development class SLIS in connection* 
*& with the online documentation, 

*& training BC412 

*& Controls'. 

*& 

*& A ————— — — —— —— ——À A —— ———— a —Ó 
REPORT  sapbc402 tabs sort opt. 


TYPE-POOLS: col. 


TYE 


D 


BI 


ES: 
ES: 


mandt (3) 


carrid(3) 


connid (4) 


£1 


Ldate (8) 


price(20) 


currency (5) 


pl 


lanetype (10) 


" 
" 


n 


i 


n 


D1 


D1 


D] 


D] 


EGIN OF st_flight_c, 


E 
E 


E 
E 


E 
E 


E 
E 


E 


E 


E 


Cc, 
Cr 
n, 
n, 
Cc, 
Cr 


C, 


(C) SAP AG 


BC402 


54 


seatsmax (10) TYPE n, 


seatsocc (10) TYPE n, 


paymentsum(22) TYPE c, 


END OF st flight c, 


I 
J 


tt_flights TYPE SORTE 


WITH UNIQUE KEY fldate 


datastring TYP 


E 
[e 
CT 
K 
H- 
5 
Q 
à 


set string TYP 


El 
u 
CT 
K 
H- 
5 
Q 
à 


wa flight c TYPE st fligh 
wa flight TYPE bc402 s. 
it flights TYPE tt fligh 


ES; 


TYPE SORTED TABLE 


= 


TABLE 


it doubles 


WITH NON-UNIQ 
it listl 
it list2 


wa list 


CONSTANTS c num TYPE i VALUE 


I 


T 


PARAMETERS: 


p date TYPE s date, 


p list TYPE c AS CHECKBOX. 


UE K 


30. 


OF bc402 s flight 


carrid connid. 


OF bc402 s flight 


EY carrid connid fldate, 


TYPE bc402 t flights color, 
TYPE bc402 t flights color, 
LIKE LINE OF it listl. 


" <-- select list type 
de ' ' output as ABAP list 
" 'X' output with ALV 


INITIALIZATION. 


p date = sy-datum + 30. 


AT SELECTION-SCREEN. 


IF p date « sy-datum. 


ESSAGE e030(bc402). n 


ENDIF. 


<= 


‘invalid date’. 
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START-OF-SELECT 


CALL FUNCTION 'BC402 CR 


EXPORTIN 


ION. 


G 


im number = 


im table name = 


im separator = 


im unique = 


IMPORTIN 


no 


OTHI 


IF sy-subre < 


ENDIF. 


IF sy-subrc 
set strin 


SHIFT dat 


G 


EXCEPTIONS 


data 


ERS 


2s 


ex string = 


MESSAGE a038 (bc402). 


c num 


'SFLIGHT' 


TH! 


EATE SEP STRING' 


datastring 


Woe 


¡ACES 


SHIFT datastring BY 2 P 
SEARCH datastring FOR ' 


= 0. 


H'. 


VHILE NOT datastring IS INITIAL. 


'no data found' 


g = datastring(sy-fdpos). 


astring BY sy-fdpos PLACI 


SPLIT set string AT '£' INTO 
wa flight c-mandt 
wa flight c-carrid 
wa flight c-connid 
wa flight c-fldate 
wa flight c-price 
wa flight c-currency 
wa flight c-planetype 
wa flight c-seatsmax 
wa flight c-seatsocc 
wa flight c-paymentsum. 
MOVE-CORRESPON 


INSERT wa flight INTO TABLI 


IF sy-subrc <> 0. 


INSERT wa flight INTO TABII 


El 


El 


TES 


El 
un 


DING wa flight c TO wa flight. 


Flights. 


" insert new entry 


it doubles. 
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e 
zZ 
(=) 
H 
nj 


ENDWHILE. 


IF p list IS INITIAL. " output data as ABAP spool list 


LOOP AT it flights INTO wa flight. 


IF wa flight-fldate « sy-datum. 


FORMAT COLOR COL NEGATIVE. 


T 


ELSEIF wa_flight-fldate BETW 


¡EN sy-datum AND p date. 


FORMAT COLOR COL TOTAL. 


Gl 


FORMAT COLOR COL POSITIVE. 


ENDIF. 

WRITE: / 
wa_flight-carrid, 
wa flight-connid, 


wa flight-fldate DD/MM/YYYY, 


light-price CURRENCY wa flight-currency, 


light-currency, 


wa flight-planetype, 


wa flight-seatsmax, 
wa flight-seatsocc. 
ENDLOOP. 


FORMAT RESET. 


IF NOT it doubles IS INITIAL. 
SKIP 2. 
WRITE: / text-dob. 


* (dob): 'The following data sets occurred more then one time:' 


SKIP. 
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LOOP AT it doubles INTO wa flight. 


WRITE: / 
wa flight-carrid, 
wa flight-connid, 
wa flight-fldate DD/MM/YYYY, 


wa flight-price CURRENCY wa flight-currency, 


wa flight-currency, 

wa flight-planetype, 

wa flight-seatsmax, 

wa flight-seatsocc. 

ENDLOOP. 
ENDIF. 

Se Se SS ee ee A A A A E SS SS Se 
* NEW NEW NEW 
A A A Se ee men ten ee SS SS ee me, | (| (mm ee SS © me mm ee A nu 
ELSE " output data using a standard tool: ALV Grid Control 


* fill color field 
LOOP AT it flights INTO wa flight. 
MOVE-CORRESPONDING wa flight TO wa list. 


IF wa flight-fldate « sy-datum. 
wa list-color - col negative. 

ELSEIF wa flight-fldate BETWEEN sy-datum AND p date. 
wa list-color - col total. 

ELSE. 
wa list-color - col positive. 


ENDIF. 


INSERT wa list INTO TABLE it listl. 
ENDLOOP. 


LOOP AT it doubles INTO wa flight. 
MOVE-CORRESPONDING wa flight TO wa list. 
wa list-color = col background. 

INSERT wa list INTO TABLE it list2. 

ENDLOOP. 
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x display lists in ALV 


CALL FUNCTION 'BC402_ALV_LIST_OUTPUT' 


EXPORTING 
it_list1 


IT_LIST2 
EXCEPTIONS 
control_error = 

if sy-subrc <> 0. 
write: text-err. " 


endif. " 


it listl 


it list2 


<-- 


'Control error. No output with ALV grid 


control possible. 
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Contents: 


Defining the interface 


o 
e Call 
© 
o 


Lifetime and visibility 


Use 


O SAP AG 1999 
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Subroutines: Unit Objectives ER 
Mz m 


ds At the conclusion of this unit, you will be able to: 


e Define subroutines 
e Call subroutines 


€ Use the different passing and type assignment 
techniques for interface parameters 


© SAP AG 1999 
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Overview: Definition 


ESI 


ABAP program 


Method 
Subroutine 
L—L—I— ——I— 
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17.4 


Overview - Definition of Subroutines 


P Definition of Subroutines 
Calling Subroutines 
Applied Example: Recursive Call 


© SAP AG 1999 
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Structure of a Subroutine 
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W A subroutine is an internal modularization unit within a program. You can pass data to this unit using 
an interface. You put sub-sections of your program in a subroutine to make your main program more 
readable, or so that you can execute certain sequences of statements several times. Your program 
becomes more function-oriented: The task is split into the sub-functions that the subroutines are 
responsible for performing. 

m This generally makes your programs easier to maintain too. You can execute these subroutines invisibly 
in the Debugger and view the results only, which usually allows you to trace the error more quickly. 
Structure of a subroutine 
* You enclose the subroutine between the statements FORM and ENDFORM. 

* After the name of the subroutine, you program the interface, where you list all the formal parameters 
and assign types to them - in the correct order. You must list all the import parameters first, 
followed by all the import/export parameters. Within the subroutine, you address the data you have 
passed using formal parameters. 

* You can make local declarations in a subroutine. 

* Finally, you include the statements that the subroutine is to execute. You can call any type of 
modularization unit from a subroutine. 
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Data Passing Methods | 
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You specify how the data in the main program (actual parameters, do1, do2, do3, do4) is passed to the 
data objects in the subroutine (formal parameters, p1, p2, p3, p4) in the interface. There are three ways 
of doing this: 

m Call by reference (p1, p3) 

You pass the dereferenced address of the actual parameter to the subroutine. 

Technically, the key words USING and CHANGING have the same effect here. USING, however, causes a 
warning when the system checks the program's syntax. 

m Call by value (p2) 

You pass a local copy of the actual parameter to the subroutine to be read. 

To do this, use the statement USING value(formal parameter). 

m Call by value and result (p4) 

You pass a local copy of the actual parameter to the subroutine to be changed. To do this, use the 
statement CHANGING value(formal parameter). 

Choose this method of passing data when you want to guarantee that the actual parameters will remain 
unchanged, if the subroutine aborts prematurely. 

In general you should choose call by reference if you pass an internal table parameter, to avoid having to 
pass a (potentially large) local copy of the table. 
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17.7 


Defining Types for Interface Parameters 


Program Edit Goto Utilities Environment Help 

| Other object 1H ee: 2 BAR ag oe 
Display <-> Change = : a à; 
Active <-> Inactive 


Check 
Save Extended pro um check 


Generate Main program 
Activate 

Test 

Print 

End 


© SAP AG 1999 


The data objects you pass to the subroutine can have any type. 

The following rules apply to assigning types: 

m You can assign a type to elementary types. 

If you do, the formal parameter and the actual parameter must have the same type. Otherwise the syntax 
check returns an error message. 

Not assigning a type has the same effect as the TYPE ANY addition. If you use this option, the formal 
parameter "inherits" the actual parameter type at runtime. If the statements in the subroutine cannot be 
performed on the type, the system returns a runtime error. 

The data types i, £, d, and t are already fully specified. Conversely, if you use p, n, c, or x types, the 
missing type attributes are "inherited" only at runtime. If you want these types to be fully specified too, 
you must use user-defined types. string and xstring types are not fully specified until runtime. 

m You must assign types to structures and references. 

m You must also assign a type to each internal table. However, you can assign a generic type - that is, you 
can write your subroutine so that the statements can handle different table types (similar to using generic 
elementary types). You can do this in one of two ways: 

e Using the appropriate interface declarations: TYPE [ANY | INDEX | STANDARD | SORTED | 
HASHED] TABLE, where TYPE TABLE is simply a shorter form of TYPE STANDARD TABLE; 
* Using user-defined generic table types. 
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17.8 


Overview: Calling Subroutines 


DAF 


Definition of Subroutines 


P» Calling Subroutines 


Applied Example: Recursive Call 
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17.9 


Calling a Subroutine Ey 


Insert pattern 
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When the subroutine 1s called, parameters are passed in strict order. 

You specify the passing method and assigned type for the parameters in the interface. When the subroutine 
is called, you have to split the parameters again according to whether they are USING or CHANGING. The 
numbers must also match. 

Where possible, define the subroutine first. Then use the Pattern function in the Editor, to generate the call 
statement as a whole. This ensures that you do not forget anything or mix things up. Remember that you 
must also replace the formal parameters with the actual parameters. 

If you pass an internal table with a header line, the name is interpreted as being the header line. You pass 
the body of this table using itab []. In the subroutine, the passed internal table does not then have a 
header line. 

Example: 

DATA it spfli TYPE TABLE OF spfli WITH HEADER LINE. 


PERFORM demosub CHANGING it spfli[]. 


FORM demosub CHANGING p spfli LIKE it spfli[]. 
DATA wa p spfli LIKE LINE OF p spfli. 


ENDFORM. 
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PERFORM srout USING dol CHANGING do2. 


FORM srout USING value (p1) .. CHANGING p2 
DATA: 
1 dol 
1 do2 


. statements 


ENDFORM. 
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The formal parameters and local data objects are only active while the subroutine is running. This means 
that the necessary memory is allocated when the subroutine is called and then released once it has been 
executed. They can therefore be addressed only at this time. The following detailed rules apply: 

* Youcan address global data objects from the subroutine. However, avoid doing this where possible, 
since you will circumvent the interface, and your program will become error-prone. 

* Youcan only address formal parameters and local data objects from within the subroutine. 

* [fa global formal parameter has the same name as a local data object, then global parameter is 
obscured locally - that is, the local data object is addressed inside the subroutine, while the global 
data object is addressed outside the subroutine. 

In summary: 

* [n the main program, address the global data objects and pass them to the subroutine using the 
interface. 

* [n the subroutine, address the formal parameters and local data objects. 

* To make your programs more readable, avoid using identically named data objects. Use a simple 
prefix like p ... for "parameter" and 1 ... for "local". 
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17.11 


> 


PERFORM demosub USING dol CHANGING do3 


FORM demosub USING pl .. value(p2) .. CHANGING p3 .. value(p4) 


DATA: 
l do .. VALUE .. 


pl = 
p2 
p3 
p4 = 


ENDFORM. 
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In this example, the system is to call the subroutine demosub. It contains a local data object with a start 
value and makes changes to the four formal parameters. 
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17.12 


Runtime Behavior 2 ER 
Mz nl 


dot gigi | 902 | ga; do3 | o3 | do4 ota 


P2 | old2 P4 oda 


PERFORM demosub USING dol CHANGING do3 


FORM demosub USING pl .. value(p2) .. CHANGING p3 .. value(p4) 


DATA: 
l do .. VALUE .. 


pl 
p2 
p3 
p4 


ENDFORM. 
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You allocate two memory areas, p2 and p4, for the two actual parameters do2 (call by value) and do4 
(call by value and result). Fill p2 and p4 with the contents of do2 and do4. You also allocate memory for 
the local data object 1_ do and fill it with an initial value. 

There is no value addition for p1 and p3. This means that changes at runtime are made to the actual 
parameter directly. Thus you can access p1 directly through dol. 
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17.13 


Runtime Behavior 3 ER 
Mz m 


doi |, new | 002 | gta; dos 143 | 904 | giga 


P2 | old2 P4 | old4 


PERFORM demosub USING dol CHANGING do3 


FORM demosub USING pl .. value(p2) .. CHANGING p3 .. value(p4) 


DATA: 
l do .. VALUE .. 


pl = 
p2 
p3 
p4 = 


ENDFORM. 
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You change the content of do1 using p1 directly. 
You declare the formal parameter p2 as a local copy with read access. This means that changes at runtime 
have no effect on the actual parameter do2. 
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17.14 


Runtime Behavior 4 ER 
FI 


doi |, new | 402 | gia; dos 143 | 904 | giga 


p2 v new p4 old4 


PERFORM demosub USING dol CHANGING do3 


FORM demosub USING pl .. value(p2) .. CHANGING p3 .. value(p4) 


DATA: 
l do .. VALUE .. 


pl = 
p2 
p3 
p4 = 


ENDFORM. 


© SAP AG 1999 


The same applies to p3 as to p1. Without the value addition, USING and CHANGING have the same 
effect. 
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17.15 


Runtime Behavior 5 ER 
Mz ni 


do1 v new do2 old2 do3 v new do4 old4 


p2 v new p4 old4 


PERFORM demosub USING dol CHANGING do3 


FORM demosub USING pl .. value(p2) .. CHANGING p3 .. value(p4) 


DATA: 
l do .. VALUE .. 


pl = 
p2 
p3 
p4 = 


ENDFORM. 
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You change the content of do3 using p3 directly. 
The system creates a local copy for p4 and p2. While the subroutine is running, the changes do not yet 
affect the actual parameters. 
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17.16 


Runtime Behavior 6 ER 
PT. 


do1 v new do2 old2 do3 v new do4 old4 


p2 v new p4 v new 


PERFORM demosub USING dol CHANGING do3 


FORM demosub USING pl .. value(p2) .. CHANGING p3 .. value(p4) 


DATA: 
l do .. VALUE .. 


pl = 
p2 
p3 
p4 = 


D ENDFORM. 
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The contents of the local copies is not written to the actual parameters until ENDFORM is executed. 
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17.17 


Runtime Behavior 7 pup 
Mz nl 


do1 v new do2 old2 do3 v new do4 v new 


PERFORM demosub USING dol CHANGING do3 


> 


FORM demosub USING pl .. value (p2) .. CHANGING p3 .. value (p4) 


DATA: 
l_do .. VALUE .. 


pl = 
p2 
p3 
p4 = 


ENDFORM. 
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If the subroutine demosub aborts for any reason, do4 has the same value after demosub has been called 
as it had before. 

The system has finished executing demosub so it releases the memory areas for the local data objects 
again. This means that these data objects can no longer be addressed. 

Note once again that do2 has the same value as before, even though p2 was changed in the subroutine. 
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17.18 


Syntax Example: Defining and Calling a Subroutine 


DATA 
res seats TYPE saplane-seatsmax. 


PARAMETERS: 
pa type TYPE saplane-planetype, 
pa occ TYPE saplane-seatsmax. 


PERFORM get free seats USING pa type 
pa occ 
CHANGING res seats. 


WRITE res seats. 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkxk 
FORM get_free_seats USING p_planetype TYPE saplane-planetype 
p seatsocc TYPE saplane-seatsmax 
CHANGING value(p seatsfree) TYPE saplane-seatsmax. 


SELECT SINGLE seatsmax FROM saplane 
INTO p seatsfree 
WHERE planetype - p planetype. 


p seatsfree - p seatsfree - p seatsocc. 
ENDFORM. 
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In this example, the subroutine calculates the number of free seats in a plane, after being given the type of 
plane and the number of occupied seats. 

The system passes the parameters p planetype and p_seatsocc by reference to the subroutine 

get free seats. In the interface, the USING addition is used for documentation purposes - that is, to 
clarify that they are only being read. Conversely, the result, p seatsfree, is passed by value as a local 
copy. 

For simplicity, the main program consists of accepting values that the user enters; calling the subroutine; 
and displaying the list. 

You can also call subroutines belonging to other main programs from your program. However, this 
technique is obsolete. Use function modules instead. They offer several advantages and are very important 
in the ABAP Workbench (see also the chapter Function Groups and Function Modules). 
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17.19 


Overview of Applied Example: Recursive Call 


à » 
E po 


Definition of Subroutines 
Calling Subroutines 
P» Applied Example: Recursive Call 
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17.20 


Example: Recursive Call 1 


FORM USING pP pos TYPE citytype 
p dest TYPE citytype 
CHANGING p step list TYPE step list type. 
DATA: 
l poss list TYPE step list type, 
l wa poss TYPE step type. 


*** step to p dest? 
READ TABLE conn_list INTO wa_conn 
WITH TABLE KEY cityfrom = 
cityto 
IF sy-subrc = 0. 
ELSE. 
*** all possible next steps where we haven't been yet: 
LOOP AT conn list INTO wa conn WHERE cityfrom - p pos. 
READ TABLE p step list WITH KEY cityto = wa conn-cityto 
TRANSPORTING NO FIELDS. 
IF sy-subrc <> 0. 


APPEND l wa poss TO 1 poss list. 
ENDIF. 
ENDLOOP. 
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Another typical use of subroutines is in recursive calls. In principle, you can also call the other 
modularization units, which we will discuss later in this course. However, the effort involved is often not 
worthwhile for small recursive sections of code that are easy to program. 

In this example, you want to solve the problem of finding the connection between two cities, recursively. 
To find the connection from A to Z, you simply search for a connection from A to B and then for B to Z. 
Thus, the subroutine find conn calls itself over and over again. 

m Ifthere is no direct connection, the program retrieves all the cities (1 poss list) that can be 
reached from the current position (p pos), that are not yet included in the itinerary (p step list). 
This itinerary, updated each time, is typed as a standard table, so that the sequence of cities that we have 
flown to remains the same. 
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17.21 


Example: Recursive Call 2 


SORT l1 poss list BY cityto ASCENDING. 
DELETE ADJACENT DUPLICATES FROM 1 poss list COMPARING cityto. 


*** no good next steps availible: 
IF l poss list IS INITIAL. 


MODIFY p step list FROM wa step TRANSPORTING no way out 
WHERE cityto - p pos. 


ELSE. 
*** try to get ahead from the possible next steps: 
LOOP AT l poss list INTO 1l wa poss. 
READ TABLE p step list WITH KEY cityto l wa poss-cityto 
no way out = 'X' 
TRANSPORTING NO FIELDS. 
IF sy-subrc <> 0. 


APPEND wa step TO p step list. 
PERFORM USING 1 wa poss-cityto 
p dest 
CHANGING p step list. 
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For simplicity, duplicates are removed from the list of cities that can be reached. This means that the 
subroutine always finds only one possible connection. 
So you could stop after this search, and then search later for all the possible connections between two 
cities - for example, by the number of stopovers, by total distance, and so on. 

m If you cannot reach any city from the current position, other than those already visited during the 
journey, the current city is marked in the itinerary as an "error". 

m Otherwise, the system processes the cities that can be reached in a loop. It enters each city in the 
itinerary first, so that it can continue the search from this position. However, it must first check that the 
city has not been marked as an "error" in a deeper search. 
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17.22 


Example: Recursive Call 3 ER 
AP 


*** dest reached? 
READ TABLE p step list WITH KEY cityto = p dest 
TRANSPORTING NO FIELDS. 
IF sy-subrc = 0. 
EXIT. 
ELSE. 
CLEAR wa step. 
wa Step-no way out = 'X'. 
MODIFY p step list FROM wa step TRANSPORTING no way out 
WHERE cityto = l wa poss-cityto. 
ENDIF. 


ENDIF. no way out = ' ' 
ENDLOOP. try next city from 1 poss list 
ENDIF. good next steps available 


ENDIF. possible next steps where we haven't been yet 


ENDFORM. find conn 
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m [fat any point during this recursive processing, the destination city is reached, the system can stop 
processing. Otherwise, searching further from this reachable town would not be successful. The city is 
marked according in the itinerary and the search continues for the next city that can be reached. 

For the entire processing logic for this subroutine, refer to LBC402 SURD RECURSION (include 
LBC402 SURD RECURSIONFO1). The subroutine is called from the function module 

BC402 SURD TRAVEL LIST. 

This in turn is called from the executable program SAPBC402 SURD RECURSION, a report that lists all 
the possible flight connections within the flight data model, including those with stopovers. 
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17.23 


Subroutines: Unit Summary m p 
DM” 
You are now able to: 


e Define subroutines 


€ Call subroutines 


€ Use the different passing and type assignment 
techniques for interface parameters 
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17.24 Exercise 


Unit: Subroutines 


Topic: Defining and Calling a Subroutine 


At the conclusion of these exercises, you will be able to: 
* Define and implement subroutines 
e Call subroutines 


e Use generically-typed interface parameters 


To reduce future maintenance, you decide to change internal 
modularization within your program. 


) ) ) Change your program so that it displays the list using a WRITE 


statement in a subroutine that you call several times. 


p" ~~ Program: ZBC402 ## FORM 


| | | | | | | Template: your solution from the previous exercise 
or SAPBC402 TABS SORT 
or SAPBC402 TABS SORT OPT 


Model solution: SAPBC402 SURS FORM 


where ££ stands for your (two-digit) group number. 


1-1 Copy your program, ZBC402_## SORT, or the program ZBC402 ## SORT OPT, 
to a new program, and call it ZBC402 ## FORM. 


1-2 Define and implement a subroutine that will display both lists in your program (that is, 
display both it flights andit doubles). The subroutine should receive the 
flight dates as an internal table using its interface, and then display the content WRITE 
with (loop through the internal table). 

Note that your subroutine must be "generic" in two respects: 


(a) The algorithm must not be dependent on receiving a particular type of table, since 
the tables to be displayed are of different types (that is, they have different keys). This 
is guaranteed in this particular exercise, since the algorithm performed on the internal 
table consists only of one loop through the whole table. However, the interface 
parameter is affected. It must be typed in such a way that the key definition remains 
open (that is, the key is only defined at runtime by the assigned data object). 


(b) You cannot specify or assign list colors in the subroutine — you must do it in the 
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calling program. You should display it flights withcolors and it doubles 
without colors. 

To solve this particular problem, store the colors for each line in an additional column 
of the internal table as follows: 


1-2-1 The color information is passed to the subroutine in an additional column. 
Therefore you must change the line types of the tables it flights and 
it doubles and the associated work area, wa flight. To do this, use the 
globalline type BC402 S FLIGHT COLOR. 


1-2-2 Define a generic table type (suggested name: tt. gen), which you use to 
assign a type to the interface parameter of your subroutine. The table can 
possess all the attributes shared by it flights andit doubles. 
Table kind: SORTED 
— line type: BC402 S FLIGHT COLOR 


Alternatively, use the table kind ANY. 


1-2-3 Define and implement a subroutine (suggested name: list output), and 
pass an interface parameter to it (suggested name: p. itab)- making sure that 
your subroutine has read access only to it. 


In your implementation, copy the output of one of the internal tables, 
it flightsorit doubles, and pass their names to the those of the data 
objects in the subroutine. 


Create a local structure as a work area for processing the loop on the internal 
table (or use a field symbol, if you want to use a copy-free loop). 


Use the FORMAT COLOR = «color code» variant to highlight a line in 
the list in color. For details of the correct syntax, refer to the keyword 
documentation for the FORMAT statement. 


1-2-A Call the subroutine at the point in your program where you had previously 
programmed displaying the list directly. Pass the table with the data to be 
displayed using the interface parameter. 

Remove the statements that display the list directly (either delete them or 
comment them out). 


Use the Pattern statement in the ABAP Editor to call the 
subroutine. 


1-2-5 Test your program. 
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1-3 Make sure that the lines in the first table are again displayed in color. 

1-3-1 Include the type pool col in your program, using TYPE- POOLS col- if you 
have not already done so in the optional section of the second exercise in the 
Internal Tables unit. 

1-3-2 Fill the COLOR field with the appropriate color value (col negative, 
col total,col positive,col background) when you fill the 
internal tables it flights andit doubles: 
it flights: 

Logical condition Color value 
te< sy-datum col negative 
fldate BETWEEN sy- ool total 
datum AND p date, 
inclusive 
te > p date col positive 
Always use col_background to display it_doubles. 
1-3-3 Test your program. 
OPTIONAL 
1-4 Allow the user to choose whether to display the list as an ABAP print list (using 


WRITE) or using a standard display tool (similar to the optional section in Exercise 2 in 
the Internal Tables unit). 


The approach you take to completing this exercise depends on the program you used as 
your template: 


(a) If you used your own program, ZBC402 ## SORT OPT, or the program 
SAPBC402 TABS SORT OPT as a template, adapt it as follows: 


Since the color values are now specified in it flights andit doubles, you 
only need to copy these internal tables to the STANDARD tables it list1 and 
it list2 and then pass them to the function module 

BC402 ALV LIST OUTPUT. 


(a) If you used your own program, ZBC402_## SORT as a template, adapt it as 

follows: 

1-4-1 Allow the user to choose how the system will display the list, using a checkbox 
on a selection screen. To do this, create a selection parameter class (suggested 
name: p_list, type: c, addition: AS CHECKBOX, selection text: “output as 
ALV list”), which you use to display the list as follows: 


IF p last IS INITIAL. 


^" "Conventional" list using WRITE 
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ELSE. 


* List displayed using function module (ALV) 
ENDIF. 


1-4-2 Implement the logical processing block indicated by the comment “List 
displayed using function module (ALV) " in section 1-4-1. Use the function 
module BC402 ALV LIST OUTPUT. This module expects two database 
tables and displays their contents using the ALV Grid Control (a tool used to 
display non-hierarchical lists). 


Detailed information on using the ALV Grid Control is not 
part of this course. For this reason, you use a function 
module that encapsulates all the necessary technical details, 
which you can treat as a “black box." 


If you want to learn about the techniques used in the function 
module, and then apply them yourself, refer to the 
implementation of this function module in the appendix unit 
of this course. For more information on the ALV Grid 
Control, see: 


e The online documentation 

e The example programs of the development class SLIS 

e The ABAP Workbench training course BC412: Dialog 
Programming with EnjoySAP Controls 


You must pass two STANDARD tables oftype BC402 T FLIGHTS COLOR 
to the function module BC402 ALV LIST OUTPUT. These tables contain the 
list data and color values for each line in the scenario we are dealing with in this 
course (that is, flight dates). The table kind STANDARD is the kind used by the 
ALV Grid Control, which the function module uses. 


To display it flights andit doubles using a module: 
(a) Define two internal tables (suggested names: it listlandit list2), 
which have the type BC402 T FLIGHTS COLOR. 


(b) Copy the it flights and it doubles tables to it list1 and 
it list2 respectively. 


(c)Call the function module BC402 ALV LIST OUTPUT and pass the tables 
it listlandit list2 toit. If your program triggers an exception when 
it executes the function module, it should display an error message. (We 
suggest “Error processing Control"). 


(d) Test your program ©. 
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17.25 Solutions 


Unit: Subroutines 


Topic: Defining and Calling a Subroutine 


18ABAP program 


R 


E 


PORT sapbc402 surs form. 
TYPE-POOLS: col. 


TYPES: 


BEGIN OF st flight c, 


mandt (3) TYPE c, 
carrid(3) TYPE c, 
connid (4) TYPE n, 
fldate (8) TYPE n, 
price(20) TYPE c, 
currency (5) TYPE c, 
planetype(10) TYPE c, 
seatsmax (10) TYPE n, 
seatsocc(10) TYPE n, 


E 


paymentsum(22) TYPE c, 


END OF st flight c, 


WITH UNIQUE KEY fl 


tt flights TYPE SORTED TABLE OF bc402 s flight color 


date carrid connid, 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkěkkkkxkxk 


tt_gen TYPE SORTED TABLE 


OF bc402_s_flight_color. 


ERARIO RA RRA RRA RRA RRA RRA ARA RRA ARA ARA ARA A RRA RRA RRA ARA 


DATA: 
datastring TYPE string, 
set string TYPE string, 


wa flight c TYPE st flight c, 


wa flight TYPE bc402 s flight color, 


it flights TYPE tt flights, 


it doubles TYPE SORTED TABLE 


I 


OF bc402 s flight color 
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WITH NON-UNIQUE KEY carrid connid fldate. 


T 


CONSTANTS c_num TYPE i VALUE 30. 


PARAMETERS: 


p_date TYPE s_date. 


INITIALIZATION. 


p_date = sy-datum + 30. 


AT SELECTION-SCREEN. 


IF p date < sy-datum. 


MESSAGE e030 (bc402). E ec 


E 


NDIF. 


START-OF-SELECTION. 


CALL FUNCTION 'BC402 CREATE SEP STRING' 


EXPORTING 
im number = c num 
im table name = 'SFLIGHT' 
im separator = '#! 


im unique 
IMPORTING 


ex string = datastring 


EXCEPTIONS 


no data = 


OTHERS = 2. 


IF sy-subrc <> 0. 


MESSAGE a038 (bc402). 1 == 


ENDIF. 


VHILE NOT datastring IS INITIAL. 


SHIFT datastring BY 2 PLACES. 


SEARCH datastring FOR '##'. 
IF sy-subre = 0. 

set string = datastring(sy-fdpos). 
SHIFT datastring BY sy-fdpos PLACI 


El 
uu 


SPLIT set string AT '#' INTO 


"invalid date' 


'no data found' 
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wa flight c-mandt 

wa flight c-carrid 

wa flight c-connid 

wa flight c-fldate 

wa flight c-price 

wa flight c-currency 
wa flight c-planetype 
wa flight c-seatsmax 
wa flight c-seatsocc 
wa flight c-paymentsum. 


MOVE-CORRESPONDING wa flight c TO wa flight. 


IF wa flight-fldate « sy-datum. 


wa flight-color - col negative. 


ELSEIF wa flight-fldate BETWEEN sy-datum AND p date. 


wa flight-color - col total. 
ELSE. 


wa flight-color - col positive. 


ENDIF. 


T 


INSERT wa flight INTO TABLE it flights. 


IF sy-subrc <> 0. 


" insert new entry 


wa flight-color - col background. 


INSERT wa flight INTO TABLE it doubles. 
ENDIF. 
ENDIF. 
ENDWHILE. 
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* output data as ABAP spool list 


PERFORM list output 
USING it flights. 


IF NOT it doubles IS INITIAL. 
SKIP 2; 


FORMAT RE 


n 
RE 


WRITE: / 


"The following data sets occurred more then one time:' (dob). 


SKIP. 


PERFORM list output 
USING it doubles. 


ENDIF. 
*G&------- -- - A A A A A A A A A A A A A A A A A A A AA AAA AA AAA A 
*& Form list output 
AAA - - - A A A A A A A A A A A A A A A A A A A A A AA AAA AA AAA AA 
= List output of an internal table transferred via interface 
* variable p itab. 
oo ——————— M —————————————————M— ———— 
lei --> P ITAB 
AAA mm mm mm mm mm mm mm mm mm mm mm mm me * 


FORM list output 
USING 
p itab TYPE tt gen. 


DATA: 
wa itab LIKE LINE OF p itab. 


LOOP AT p itab INTO wa itab. 


FORMAT COLOR - wa itab-color. 
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WRITE: / 
wa itab-carrid, 
wa itab-connid, 
wa itab-fldate DD/MM/YYYY, 
wa itab-price CURRENCY wa itab-currency, 
wa itab-currency, 
wa itab-planetype, 
wa itab-seatsmax, 


wa itab-seatsocc. 


ENDLOOP. 
rM e X ee AA 
* alternative solution using field symbols: 
* 'copy free' loop 


*  FIELD-SYMBOLS: 
* «wa itab» LIKE LINE OF p itab. 


* LOOP AT p itab ASSIGNING «wa itab». 


* FORMAT COLOR - «wa itab»-color. 


* WRITE: / 


* «wa itab»-carrid, 

* «wa itab»-connid, 

x <wa_itab>-fldate DD/MM/YYYY, 

i «wa itab»-price CURRENCY «wa itab»-currency, 
* «wa itab»-currency, 

x <wa_itab>-planetype, 

* «wa itab»-seatsmax, 

* «wa itab»-seatsocc. 

*  ENDLOOP. 

ENDFORM. " list output 


(C) SAP AG BC402 


Exercise 1: Optional Sections 


Unit: Subroutines 


Topic: Defining and Calling a Subroutine 


19ABAP program 


R 


E 


TYPE-POOLS: col. 


TYPES: 


BEGIN OF st flight c, 


mandt (3) TYPE 
carrid(3) TYPE 
connid(4) TYPE 
fldate(8) TYPE 
price (20) TYPE 
currency (5) TYPE 
planetype(10) TYPE 
seatsmax (10) TYPE 
seatsocc (10) TYPE 


E 


paymentsum(22) TYP 


E 


ND OF st flight c, 


tt flights TYPE SORTED 


e 
e 
n, 
n, 
e, 
cy 
c, 
n, 
n, 


C, 


PORT sapbc402_surs_form_opt. 


TABLE OF bc402_s_flight_color 


WITH UNIQUE KEY fldate carrid connid, 
tt_gen TYPE SORTED TABLE OF bc402 s flight color. 
DATA: 
datastring TYPE string, 
set string TYPE string, 


it doubles TYPE SORT 


it flights TYPE tt fligh 


E c 


flight color, 


ts, 


ED TABLE OF bc402 s flight color 


WITH NON- 


UNIQUE KEY carrid connid fldate, 


it listl TYPE bc402 t flights color, 
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rt List? TYP 


E 


bc402 t flights color. 


T 


CONSTANTS c_num TYP 


Lr] 


i VALUE 30. 


PARAMETERS: 


p date TYPE s date, 
p list TYPE c AS CHECKBOX. 


INITIALIZATION. 


p date = sy-datum + 30. 


AT SELECTION-SCREEN. 


IF p date « sy-datum. 


MESSAGE e030 (bc402). E aS 


ENDIF. 


START-OF-SELECTION. 


CALL FUNCTION 'BC402 CREATE SEP STRING' 


EXPORTING 
im number = c num 
im table name = 'SFLIGHT' 
im separator = '#! 


im unique = !! 
IMPORTING 


ex string = datastring 


EXCEPTIONS 


no data = 


OTHERS = 


IF sy-subre <> 0. 


MESSAGE a038 (bc402). == 


ENDIF. 


VHILE NOT datastring IS INITIAL. 


SHIFT datastring BY 2 PLACES. 


SEARCH datastring FOR '##'. 

IF sy-subrc = 0. 

set string = datastring(sy-fdpos). 
SHIFT datastring BY sy-fdpos PLACES. 


‘invalid date' 


"no data found' 
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SPLIT set string AT '#' INTO 


wa flight c-mandt 

wa flight c-carrid 

wa flight c-connid 

wa flight c-fldate 

wa flight c-price 

wa flight c-currency 

wa flight c-planetype 

wa flight c-seatsmax 

wa flight c-seatsocc 

wa flight c-paymentsum. 
MOVE-CORRESPONDING wa flight c TO wa flight. 


IF wa flight-fldate « sy-datum. 


wa flight-color - col negative. 

ELSEIF wa flight-fldate BETWEEN sy-datum AND p date. 
wa flight-color - col total. 
wa flight-color - col positive. 

ENDIF. 


INSERT wa flight INTO TABLE it flights. 


IF sy-subrc <> 0. " insert new entry 


wa flight-color - col background. 


INSERT wa flight INTO TABLE it doubles. 


ENDIF. 


ial 
zZ 
=. 
F4 
nj 


ENDWHILE. 


IF p list IS INITIAL. " output data as ABAP spool list 


PERFORM list output 
USING it flights. 


IF NOT it doubles IS INITIAL. 
SKIP 2. 


FORMAT RESET. 


WRITE: / 
"The following data sets occurred more then one time:' (dob). 
SKIP. 
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PERFORM list output 


USING it doubles. 


ENDIF. 


ELSE. 


" output data using a standard tool: ALV Grid Control 


* copy to STANDARD tables 


it listl 
it list2 


it flights. 
it doubles. 


* display lists in ALV 


CALL FUNCTION 'BC402 ALV LIST OUTPUT' 


EXPORTING 


it listl 
it list2 


EXCEPTIONS 


control error 


IF sy-subrc <> 0. 


WRITE: text-err. " «-- 


ENDIF. 


ENDIF. 


" 


it listl 
it list2 


'Control error. No output with ALV grid 


control possible. 


(C) SAP AG 


BC402 


36 


*& Form list output 

*& rM II MIL 
* List output of an internal table transferred via interface 
x variable p itab. 
Re 
le --> P ITAB 

AS re a a a es a a E i a 


FORM list output 
USING 


p itab TYP 


El 


tt_gen. 


DATA: 


wa itab LIKE LINE OF p itab. 


LOOP AT p itab INTO wa itab. 


FORMAT COLOR - wa itab-color. 


WRITE: / 


wa itab-carrid, 
wa itab-connid, 


wa itab-fldate DD/MM/YYYY, 


wa itab-price CURRENCY wa itab-currency, 


wa itab-currency, 


wa itab-planetype, 


wa itab-seatsmax, 


wa itab-seatsocc. 


ENDLOOP. 


E 
Z 


DFORM. " list output 
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Function Groups and Function Modules cap A 
DIM 


Contents: 


Defining the interface 


Calling a function module 


© 
e Embedding the function module in the function group 
© 
O 


Runtime behavior 


O SAP AG 1999 
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20.2 


Function Groups and Function Modules: Unit Pay 
Objectives SAP 


= At the conclusion of this unit, you will be able to: 


€ Create function groups 
€ Create function modules 
€ Call function modules 


@ Handle exceptions raised by function modules 


© SAP AG 1999 
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20.3 


Overview: Function Groups and Function Modules ER 


ne Y 


[| 


ESI 


ABAP program 
4) Operations 
I 1 Object 


OA Method 
Subroutine 


O SAP AG 1999 
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20.4 
Function Modules Compared to Subroutines ER 
: M m nl 
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Function modules are more comfortable to use than subroutines, and have a wider range of uses. 
The following list is not exhaustive but it does detail the essential role that function modules play in the 
ABAP Workbench. 
Function modules: 
* Are actively integrated in the ABAP Workbench. You create and manage them using the 
Function Builder. 
* Can have optional importing and changing parameters, to which you can assign default 
values. 
* Canraise exceptions that fill the return code field sy-subrc. 
* Can be executed asynchronously, allowing you to run parallel processes 
e Can be enabled for updates 
* Can be remote-enabled 
* Play an important role in the SAP enhancement concept. 
In addition, the function group plays a significant role as the main program for several function modules 
This concept is examined in more detail in the second half of this unit. As an example, we are going to 
calculate the number of free seats on an aircraft. The following slides illustrate the individual steps 
involved in creating a function module. 
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P» Creating Function Modules 
Working with Function Groups 
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Edit Goto Utilities Environment System Help 
[ sag eee CHAR 2009 fA om 
Function Builder: Display BC402 FMDD GET. FREE SEATS 


Function module documentation 


Function group BC402 FMDD FLIGHT Function modules demonstration 


Short text Calculates number of free seats 


General data 


e, Normal function module 
Remote-enabled module Development class BC402 
Update module 
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In the Attributes of a function module, you specify its general administrative data and the processing type: 


a 

called from other systems (not just R/3 Systems). To call a function module in another system, there must 
be a valid system connection. For further information, refer to the course BC415 (Communications 
Interfaces in ABAP), or the online documentation. 

= . For 
further information, refer to the course BC414 (Programming Database Updates), or the online 
documentation. 

The online documentation also details the interface restrictions that apply to remote-enabled and 
update function modules. 
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Function module Edit Goto Utilities Environment System Help 
€! ag COA CHR 2009 cm om 
Function Builder: Display BC402 FMDD GET. FREE SEATS 


Function module documentation 
BC402 FMDD GET FREE SEATS 


Attributes C import) Export | Changing Tables | Exceptions | Source code 


Parameter name Type Reference type Default value Optional Pass value Short text 
IP_PLANETYPE TYPE S PLANETYE Plane type 
IP SEATSOCC TYPE S SEATSMAX D | Occupied seats 


Attributes ) Changing Tables | Exceptions Source code 


Parameter name Type Reference type Pass value Short text 
EP_SEATSFREE TYPE S SEATSMAX X Seats free 


© SAP AG 1999 


There are three kinds of parameters that you can use to exchange data with function modules: 


= By default, all parameters are passed by reference. You can only change exporting and changing 


parameters in the function module. This rule ensures that you avoid unwanted side effects 


to these parameters when you call the function module. Where possible, use this option when you add 


new parameters to function modules that are already in use 
If you do not pass a value of your own when you call the function module, the 
system then uses the default value instead. 


You may specify the type of an elementary parameter. You must specify the type of a structured or table 


Tables parameters are obsolete for normal function modules, but have been retained to ensure 
compatibility for function modules with other execution modes. 
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Processing Logic po 


Function module Edit Goto Utilities Environment System Help 
@ i #819 ©6@ GHR anon A 08 
| Function Builder: Display BC402_FMDD_GET_FREE_SEATS 


Function module documentation 
BC402_FMDD_GET_FREE_SEATS 


S 
Attributes | Import | Export | Changing | Tables | Exceptions 


FUNCTION bc402 fmdd get free seats. 
*"*"Lokale Schnittstelle: 
*"  IMPORTING 


*" EXPORTING 
EXCEPTIONS 


ENDFUNCTION. 
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When you save the interface, the system generates the statement framework together with the 
comment block that lists the interface parameters: 


FUNCTION name. 


ENDFUNCTION. 
The comment block is updated automatically if you make changes to the function module later on. 
This means that you can always see the interface definition when you are coding the function 


module. You program the statements exactly as you would in any other ABAP program in the 
ABAP Editor. 


m O 
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Function module Edit Goto Utilities Environment System Help SAP 
| 3 sjvg eoe CAR nnanmmgom ë = 
Function Builder: Display BC402 FMDD GET FREE SEATS 


Function module documentation 


Attributes | Import | Export | Changing | Tables 


Exception Short text 
NO_SEATS Cargo plane 
OVERLOAD Overbooked 
DB_FAILURE No data 


RAISE <exception>. 
*** with default message: 


MESSAGE «kind»«num» («id») 
RAISING «exception». 
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unique name. In the source code of your function module, you program the statements that raise an 
exception under the required condition. At runtime, the function module is terminated when an 
exception is triggered. The changes to exporting and changing parameters are the same as in 
subroutines. There are two statements that you can use to raise an exception. In the forms given 
below, exception stands for the name of an exception that you declared in the interface. The 
system reacts differently according to whether or not the exception was listed in the function 
module call: 
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Documenting, Activating, and Testing 


e Function module documentation 
m Short text and long text 
* Parameters 
* Exceptions 
m Functions, notes, and so on 
€ Worklist 
m Revised version 
m Inactive version 
m Active version 
€ Function testing, Debugging 
m Supplying values for parameters 
m Exceptions 


m Messages 
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Function modules differ from subroutines in that you must assume that other programmers will use 
them. For this reason, you should ensure that you complete the steps listed here: 
* Documentation (can be translated) 
You should document both your parameters and exceptions with short texts (and long texts 1f 
necessary). along with your entire function module. The system provides a text editor for you to 
do this, containing predefined sections for Functions, Example Call, Hints, and Further 
Information. 
* Work list 
When you change an active function module, it acquires the status active (revised). When 
you save it, another version is created with the status inactive. When you are working on a 
function module, you can switch between the inactive version and the last version that you 
activated. When you activate the inactive version, the previous active version is overwritten. 
* Function test 
Once you have activated your function module, you can test it using the built-in test 
environment in the Function Builder. If an exception is triggered, the test environment 
displays it, along with any message that you may have specified for it. You can also switch 
into the Debugger and the Runtime Analysis. You can save test data and compare sets of 
results. 
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DATA: result TYPE s seatsmax. 
PARAMETERS: pa type TYPE s planetye, pa occ TYPE s seatsmax. 


CALL FUNCTION ' zer! 02 FMDD GET FREE SEATS 
EXPORTING 
ip planetype pa type 
ip seatsocc 


IMPORTING 


ep seatsfree = result Insert pattern A 
EXCEPTIONS e CALL FUNCTION BC402_FMDD_GET_FREE_SEATS 


pa_occ " default: 0 


no_seats 
overload 


CASE sy-subrc. 


Y X 


WRITE: / result COLOR 5. 


WRIT 


WHEN 2. | 


E 
WRITE: / 'The plane has already been overloaded!' (nos). 
E: 


T 
T 


WRI 


ENDCASE. 
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/ 'You''11 have to stand, it''s a freighter!' (frt). 


/ 'Please contact your system administrator! ' (adm). 


When you insert a function module call in your program, you should use the Pattern function. 
Then, you only need to enter the name of the function module (input help is available). The system 
then inserts the call and the exception handling (MESSAGE statement) into your program. 

You assign parameters by name. The formal parameters are always on the left-hand side of the 
expressions: 
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Overview: Working with Function Groups 


Creating Function Modules 
P» Working with Function Groups 
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Subroutine 
program 


Interface 
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When you create a function module, you must assign it to a function group. The function group 
is the main program in which a function module is embedded. 

A function group is a program with type F, and is not executable (unlike main programs of type 
1). The entire function group is loaded in a program the first time that you call a function module 
that belongs to it. 

The system also triggers the LOAD-OF-PROGRAM event, so that you can program an 
appropriate event block. 

The function group remains active in the background until the end of the calling program. It is 
therefore a suitable means of retaining data objects for the entire duration of a program. All of 
the function modules in a group can access the group's global data. 

The same applies to screens: If you want to call one screen from several different programs, you 
must create it in a function group. You then create the ABAP data objects with the same names as 
the screen fields in the function group. The screen and data transport can now be controlled using 
the function modules in the group. 

Example: Function groups SPO1 to SPO6. 

For further information about this technique, refer to course BC410 (Programming User Dialogs). 
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Transport structure 
OO 


List display 


- 


ep cust 
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Let us return to our waiting list example from the Operations on Internal Tables unit. Maintaining 
a waiting list using subroutines would be subject to errors, since the list would be a global object, 
which could be changed within the main program 

Furthermore, waiting lists are a common application, and it is likely that if you write a solution, 
other developers can use it. You should therefore make it available centrally in the ABAP 
Workbench Workbench so that other programmers do not have to do the same work over again. If, 
for example, they know that a function module wait get first will return the name of the 
customer at the top of the waiting list they only need to worry about the required parameters and 
possible exceptions. 

In the example, the waiting list is implemented as an internal table in the global data declarations 
of the function group. This means that it cannot be changed using any means other than the 
function modules in that group. You can call these from any program. 
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20.15 
Applied Example: E 7 
. Implementing the Functions 1 SAP 


READ TABLE wait list FROM ip cust TRANSPORTING NO FIELDS. 
IF sy-subrc <> 0. 
APPEND ip cust TO wait list. 
ELSE. MESSAGE e202(bc402) RAISING in list. 
ENDIF. 


DELETE wait list WHERE id - ip id. 
IF sy-subrc <> O0. 

MESSAGE e203(bc402) RAISING not in list. 
ENDIF. 


READ TABLE wait list INTO ep cust INDEX 1. 
IF sy-subrc = 0. 
DELETE wait list INDEX 1. 
ELSE. MESSAGE e200(bc402) RAISING list empty. 
ENDIF. 


READ TABLE wait list WITH KEY id = ip id TRANSPORTING NO FIELDS. 
IF sy-subrc = 0. 
ep pos = sy-tabix. 
ELSE. MESSAGE e200(bc402) RAISING not in list 
ENDIF. F 
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The implementation of the individual function modules is similar to the examples in the /nternal 
Table Operations unit. To save space, we have only listed the ABAP coding that is relevant for 
the actual functions. 

The types of the parameters and global data objects have been specified by referring to appropriate 
types in the ABAP Dictionary. 
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20.16 
Applied Example: E 
Implementing the Functions 2 SAP 


IF wait list IS INITIAL. 
MESSAGE e200(bc402) RAISING list empty. 
ELSE. 
CALL SCREEN 100 STARTING AT 505 
ENDING AT 120 25. 
ENDIF. 


MODULE display list 0100 OUTPUT. 


SUPPRESS DIALOG. 
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0. 


LOOP AT wait list INTO wa cust. 
WRITE: / sy-tabix, 
wa cust-id COLOR COL KEY, 
wa cust-name, 
wa cust-city, 
wa cust-app date. 
ENDLOOP. 


ENDMODULE. 
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Screen 100 belongs to the function group. It is a container screen for list processing and is 
processed in the background. It allows the user to display the current contents of the waiting list in 
a modal dialog box. 

For simplicity, we have not used a table control in the example. Had we done so, we could have 
encapsulated the entire navigation in the function group. For further information about screen objects 
like this, refer to course BC410 (Programming User Dialogs). 
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20.17 
Applied Example: Ed 
Implementing the Functions 3 SAP 


DATA last pos LIKE sy-tabix. 


READ TABLE wait list WITH KEY id = ip id INTO wa cust. 
IF sy-subrc = 0. 


DELETE wait list INDEX sy-tabix. 
IF ip new pos > 0. 


DESCRIBE TABLE wait list LINES last pos. 
IF ip new pos » last pos. 
APPEND wa cust TO wait list. 
ELSE. 
INSERT wa cust INTO wait list INDEX ip new pos. 
ENDIF. 


ELSE. 
INSERT wa cust INTO wait list INDEX 1. 
ENDIF. 


ELSE. 
MESSAGE e203(bc402) RAISING not in list. 
ENDIF. 


© SAP AG 1999 


To move an entry in the waiting list, we first delete the existing entry. Then, we enter a new one at 
position ip new pos. 

This is only possible if the new index is positive and not greater than the total number of lines in 
the list (Last pos). We determine the value of last pos using the DESCRIBE TABLE 

LINES ... statement. If you specify an index that is too large, the entry is appended to the 
internal table (using APPEND). 
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Organization of a Function Group 


Objectlist Edit Goto 


Development class 
program 

Function group 
Class 

Local objects 


Utilities EnvironrSgstem Help 


@ 1248308599 HA 9m 


Workbench Edit 


Goto 


Extras Environr&gstem Help 


Object name 


[ = BC402 FMDD WAITLIST 


10 
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Function modules 
Fields 

PBO modules 
Screens 

GUI titles 
Includes 


LBC402_FMDD_WAITLISTO01 
LBC402_FMDD_WAITLISTTOP 
LBC402_FMDD_WAITLISTU01 
LBC402_FMDD_WAITLISTU02 
LBC402_FMDD_WAITLISTU03 
LBC402_FMDD_WAITLISTU04 
LBC402_FMDD_WAITLISTU05 
LBC402_FMDD_WAITLISTU06 
LBC402_FMDD_WAITLISTUXX 


Add waiting customer 
Remove waiting customer 
Display waiting list 

Shift waiting list 

Return position in waiting list 
Change position in list 


As described in the ABAP Runtime Environment unit, the ABAP Workbench helps you to 
structure your source code when you work with function groups and function modules. 


Forward navigation ensures that you always enter the correct object. Include programs are named 
automatically, and the relevant call statements are inserted automatically in the correct positions. 
You only have to observe the naming convention for function groups: Y| Z«rem name>. 

The system then creates a type F program called SAPLY | Z<rem_name.>This contains automatically 
generated INCLUDE statements. The include programs are also named automatically: Ly | 

Z<rem name><abbrev><num>. The abbreviation «abbreviation? is assigned according to the 
principle described on the Program Organization slide. 

The system also inserts the include program LY|Z<rem_name>Uxx. This contains an include 
statement for each function module in the form LY|Z«rem name>U<num>. 
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Function Groups and Function Modules: 
Unit Summary 


You are now able to: 
Create function groups 
Create function modules 
Call function modules 


Handle exceptions raised by function modules 
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20.20 Exercise 


Unit: Function Groups and Function Modules 


Topic: Creating and Calling a Function Module 


At the conclusion of these exercises, you will be able to: 
e Create function groups 
e Create function modules 


e Call function modules 


You decide to create a global function (a reuse component) that 
splits the string with the flight data, and use it in your program. 


) ) ) Change the modularization of your program so that a function 


module splits the string containing the flight data. 


p" ~~ Program ZBC402 HH CALL FUNCTION 
Function group ZBC402 ¿Hi HANDLE STRINGS 

| | | | | | | Function module Z BC402 ## STRING INTO FLIGHTS 
Template SAPBC402 FMDT CALL FUNCTION 


Model solution 
Program SAPBC40 2 FMD S CALL FUNCT ION 
Function group BC402_FMDS HANDLE STRINGS 
Function module BC402 STRING INTO FLIGHTS 
BC402 T FLIGHTS 
BC402 T DOUBLES 


where ## stands for your (two-digit) group number. 


1-1 Create a function module to which you will pass a string containing flight data and a 
separator. The function module should return the flight data and duplicate records as 
two internal tables. It should include an exception that is raised if the passed separator 
does not occur in the string. 

Since function modules are embedded in a function group, you must also create the 
latter. Follow the detailed instructions below: 
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1-1-1 


Create a function group (suggested name: ZBC402_## HANDLE STRINGS). 
Supply a short text for your function group (we suggest 
“Split_String_Group##’). 

Create a function module in this function group (suggested name: 

Z BC402 iHi STRING INTO FLIGHTS, short text “Extract flight data 
from string group ##”), which performs the above task. Use the following 
information to define your interface: 


Importing parameters 


Suggested name Passed by: 
IM DATASTRING string Value 
IM SEPARATOR e Reference 


You should use the importing parameter IM DATASTRING to pass the string 
and IM SEPARATOR to pass the separator. 


Exporting parameters 


Suggested name Type Passed by: 


EX IT FLIGHTS BC402 S FLIGHTS 


EX IT DOUBLES BC402 T DOUBLES |Reference 


The exporting parameter EX IT FLIGHTS should contain the extracted flight 
dataand EX IT DOUBLES should contain the duplicate records. 


Exceptions 


Suggested name 


SEP NOT IN STRING 


The exception SEP NOT IN STRING should be raised if the separator does 
not occur in the string. 


Document the function module and the interface (provide both short and long 
texts). 


To implement your function module, use the appropriate parts of the source text 
from your solution ZBC402 ## SORT (or SAPBC402 TABS SORT). 


If the exception is raised, use the MESSAGE ... RAISING ... variant 
with the message: 


Message type 


Message class 


Message 


Note that: 


(1) The function module should only split the string into the 
two tables, ex it flights andex it doubles. 
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1-2 


1-3 


To ensure that the function module can be used 
"universally", it must not: sort the table in a special way; nor 
assign colors based on a criterion (such as whether a flight 
data belongs to a given time interval). This is why the table 
types BC402 T FLIGHTS and BC402 T DOUBLES do 
not contain a COLOR column. Both tables are sorted by 
Airline, flight number, and flight date. 


Each of the programs that use the function module should 
assign the color values. 


(2) You will need the following local auxiliary variables in 
the function module: 


e A structure of type c ( previously with type 
st flight c)to split the data records into fields in 
your program (suggested name: 1 wa sflight c). 


e A structure of type bc402 s flight to store the data 
in the correct format (suggested name: 
l wa sflight). 


* A variable of type string to spit the string into single 
records (suggested name: 1 set string). 


Define these locally in the function module. 
(3) You can also define local types in the function module. 


When you determine whether or not an exception has been 
raised, simplify your program by checking only whether the 
separators occur at all in the string. 


To perform the check correctly, you would have to check 
whether or not the separator occurred in the correct places in 
the string. 


Copy your program, ZBC402_## FORM(ZBC402 ## FORM OPT), or the program 
ZSAPBC402 TABS SORT (SAPBC402 TABS SORT OPT), to a new program, and 
call it ZBC402_## CALL FUNCTION. 


Now use your function module, Z_BC402_## STRING INTO FLIGHTS, instead 
of the algorithm you used previously to split the string in the local program, as follows: 


1-3-1 Remove all the data definitions that you needed to split the string. You will now 
use them locally in the function module. 


1-3-1 Remove the statement blocks that split the string into it flights and 
it doubles. 


1-3-3 Change the type of the internal tables it flights andit doubles to the 
types in the parameter interface of your function module. 
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1-3-4 After receiving the string to be split from the function module 
BC402 CREATE SEP STRING, call your function module, 
Z BC402 iHi STRING INTO FLIGHTS. If there is no separator in the 
string, use the message 040 from message class BC402 to terminate your 
program. 


1-4 Now make sure that the data in it flights andit doubles is displayed in the 
same colors, and sorted in the same way, as before. To do this, copy the data into two 
internal tables that are correctly sorted and that have a COLOR column for the color 
values. You should assign the color values when copying the data (using LOOP): 


1-4-1 Create two internal tables (suggested names: it listlandit list2)for 
the flight data and duplicate records. Once filled, these tables can be passed 
later to the subroutine list output to be displayed. 

You can use either a SORTED or STANDARD table, since the table kind is 
immaterial for the loop processing that follows. However, if you want to do the 
optional exercise for this unit (displaying a list using ALV), use the STANDARD 
table kind now. (Otherwise, you will have to change it later). 


(1) Use the global type BC402 S FLIGHT COLOR or 
BC402 T FLIGHTS COLOR. 


(2) If you used your own program, 
ZBC402 ## FORM OPT, as a template, you can keep the 
definitions ofit listlandit list2. 


1-4-2 Using a loop, copy it flights andit doublestoit listland 
it list2,filling the COLOR column with the appropriate color value. 
Proceed almost as for the previous exercises. 


1-4-3 Ifit list1 has the type STANDARD, you must sort it by flight date, airline, 
and connection number. 


1-4-4 Pass the tables it listlandit list? to your subroutine 
list output. 


Note that you must change the generic table type, tt. gen, 
which has the type of the subroutine interface parameter, to 
the type of the table that has been passed. 


If you have defined it listlandit list2 as 
STANDARD tables, you must also assign the kind 
STANDARD to tt gen. 


1-4-5 Test your program. 
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OPTIONAL 


1-5 


Allow the user to choose whether to display the list as an ABAP print list (using 


WRITE) or using a standard display tool (similar to the optional section in Exercise 1 


the Subroutines unit). 


The approach you take to completing this exercise depends on the program you used as 
your template: 


(a) If you used your own program, ZBC402_## FORM OPT, or the program 
SAPBC402 FMDT CALL FUNCTION as a template, adapt it as follows: 


Call the function module BC402 ALV LIST OUTPUT and pass the tables 
it listlandit list2 to it directly. 


(a) If you used your own program, ZBC402 1Ht SORT as a template, adapt it as 
follows: 


1-5-1 Allow the user to choose how the system will display the list, using a checkbox 
on a selection screen. To do this, create a selection parameter class (suggested 


1-5-2 


name: p list, type: c, addition: AS CHECKBOX, selection text: “output as 
ALV list”), which you use to display the list as follows: 


TE p list IS INITIAL; 


5 "Conventional" list using WRITE 

ELSE. 

* List displayed using function module (ALV) 
ENDIF. 


Implement the logical processing block indicated by the comment “List 
displayed using function module (ALV)” in section 1-5-1. Use the function 
module BC402 ALV LIST OUTPUT. This module expects two database 
tables and displays their contents using the ALV Grid Control (a tool used to 
display non-hierarchical lists). 


Detailed information on using the ALV Grid Control is not 
part of this course. For this reason, you use a function 
module that encapsulates all the necessary technical details, 
which you can treat as a “black box." 


If you want to learn about the techniques used in the function 
module, and then apply them yourself, refer to the 
implementation of this function module in the appendix unit 
of this course. For more information on the ALV Grid 
Control, see: 


e The online documentation 
e The example programs of the development class SLIS 


e The ABAP Workbench training course BC412: Dialog 
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Programming with EnjoySAP Controls 


You must pass two STANDARD tables oftype BC402 T FLIGHTS COLOR 
to the function module BC402 ALV LIST OUTPUT. These tables contain the 
list data and color values for each line in the scenario we are dealing with in this 
course (that is, flight dates). The table kind STANDARD is the kind used by the 
ALV Grid Control, which the function module uses. 


To display it listlandit list2 using a module: 


(a) Change the table kind of the tables it list1,it list2,andtt gen 
to standard (if you have not already done so). 


(B)Call the function module BC402 ALV LIST OUTPUT and pass the tables 
it listlandit list2 to it. If your program triggers an exception when 
it executes the function module, it should display an error message. (We 
suggest “Error processing Control”). 


(c) Test your program ©. 
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Optional Exercise 2 


Unit: Function Groups and Function Modules 


Topic: Global Data in the Function Group 


At the conclusion of these exercises, you will be able to: 
e Create global data in a function group 


* Use the global data in a function group as a type of “memory.” 


You decide to change the dialog behavior of your program, so 
that the duplicate records extracted are only displayed if the user 


-2 >) asks for them. 


To do this, use the “memory” property of function groups: Global 
data objects in function groups are retained in memory for as long 
as the relevant program is active — that is, the program that called 
the first function module (chronologically) in the group. 


p —= Program ZBC402 HH CALL FUNCTION 
Function group ZBC402 ## HANDLE STRINGS 

| | [ | | j ¡ Function Z BC402 ## STRING INTO FLIGHTS 
modules Your solution from the previous exercise or 
Template SAPBC402 TABS SORT 
Model solution 
Program SAPBC402 FMDS CALL FUNCTION2 
Function group BC402_FMDS HANDLE STRINGS2 
Function BC402 STRING INTO FLIGHTS2 
modules BC402 GET DOUBLE FLIGHTS 


where ## stands for your (two-digit) group number. 


Extend the function module Z BC402 ## STRING INTO FLIGHTS so that it 
stores the data from the return parameter EX IT DOUBLES in a global data object in 
the function group. You will later read this data from there using a second function 
module. 


2-1-1 Create an internal table for duplicate records (suggested name: it doubles) 
as a global data object in the function group. Assign the following attributes to 
the internal table: table kind SORTED, the line type BC402 S FLIGHT, and 
key components carrid, connid, and fldate. Make the table NON- 
UNIQUE. 
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2-4 


2-1-2 Change the function module Z BC402 ## STRING INTO FLIGHTS so 
that it stores the duplicate records found in it doubles, before the end of 
the function module. 


Extend the function group ZBC402 ## HANDLE STRINGS to include a function 
module that reads data from the global data object it doubles, as follows: 


2-2-1 Create a second function module (suggested name: 
Z BC402 iHi GET DOUBLE FLIGHTS) in your function group, 
ZBC402_## HANDLE STRINGS and provide a short text for it. 


2-2-2 The function module should contain the following components: 


EXPORTING parameter: 


Suggested name 
EX IT DOUBLES BC402 T DOUBLES 


This parameter should return the list of duplicate records in the split string. 
EXCEPTIONS 


Suggested name 


EX IT DOUBLES 


This exception should be raised if there are no duplicate records. 


2-2-3 Implement the function module. If the exception is raised, use the 
MESSAGE ... RAISING ... variant with the following message: 


Message type 


Message class bc402 


Message 


Copy your program, ZBC402 ## CALL FUNCTION, or the program 
SAPBC402 FMDS CALL FUNCTION, to a new program, and call it 
ZBC402 ## CALL FUNCTION2. 


Make sure that your program displays only the list of flight data. 

To do this, comment out the lines that return the parameter EX IT DOUBLES when 
the function module Z BC402 ## STRING INTO FLIGHTS is called. Similarly, 
comment out the code that copies it doubles to it list2 and displays 

it list2. 


You should not delete these lines, since you can use them 
again later. 


(C) SAP AG 


BC402 


27 


2-5 


In the list, display a pushbutton with the text Duplicates on it, which itself displays the 
list of duplicate records as a details list when the user chooses it. 
Use the source code from SAPBC402 FMDS DETAIL LIST as a guide: 


2-5-] 


2-5-2 


In END-OF-SELECTION, set a GUI status for the basic list that contains an 
extra pushbutton (with the function code DUPLICATES and the function text 
“Display duplicates"). Add this pushbutton to the application toolbar and set the 
function PICK there to inactive. 


To do this, open the Object Navigator and copy the GUI status Detail from 
the program SAPBC402 FMDT DETAIL LIST to an identically named GUI 


status in your program. Set the GUI status using 
SET PF-STATUS 'DETAIL'. 


in END-OF-SELECTION. 


Make sure that the event block AT USER- COMMAND is executed when the user 
chooses the Display duplicates pushbutton. Using the function module 

BC402 GET DOUBLE FLIGHTS, read the duplicate records into 

it doubles.Copy it doublestoit list2 and fill the COLOR column 
with appropriate values. Display it 1ist2 using the subroutine 

list output.lfit doubles does not contain any data records, display a 
message informing the user instead. 


Use the following statement pattern to implement the processing block at the 
AT USER-COMMAND event: 


AT USER-COMMAND. 
IF sy-ucomm = 'DUPLICATES' 
AND sy-lsind = 1. 
* Processing block to display it doubles as a list 
ELSE. 
* Message informing user that it doubles does not contain any data 
ENDIF. 
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20.21 Solutions 


Unit: Function Groups and Function Modules 


Topic: Creating and Calling a Function Module 


21Function group: BC402 FMDS HANDLE STRINGS 


21.2Global data 


None available 


22Function module BC4 02 STRING INTO FLIGHTS 


FUNCTION BC402 STRING INTO FLIGHTS 
*"*"Tocal interface: 

XM IMPORTING 

*" VALUE (IM DATASTRING) TYPE STRING 


su REFERENCE (IM SEPARATOR) TYPE C 


HAL REFERENCE (EX IT FLIGHTS) TYPE BC402 T FLIGHTS 
HAL REFERENCE (EX IT DOUBLES) TYPE  BC402 T DOUBLES 


*" EXCEPTIONS 


di SEP NOT IN STRING 


BEGIN OF 1 st flight c, 


mandt (3) TYPE c, 
carrid(3) TYPE c, 
connid(4) TYPE n, 
fldate (8) TYPE n, 
price(20) TYPE c, 
currency (5) TYPE c, 
planetype(10) TYPE Cc, 


seatsmax (10) TYPE n, 


seatsocc(10) TYPE n, 


paymentsum(22) TYPE c, 


END OF 1 st flight c. 
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DATA: 


E 


l wa flight c TYP 


l wa flight TYP 


El 


El 


l set string  TYP 


l set sep(2) TYPE c. 


l st flight c, 
bc402 s flight, 


string, 


IF im datastring CA im separator. 


CONCATENATE l set sep im separator IN] 


CONCATENATE l set sep im separator IN] 


WHILE NOT im datastring IS INITIAL. 


SHIFT im datastring 


BY 2 PLACI 


PO 


ES. 


IF sy-subre = 0. 


l set string = im da 


SHIFT im datastring 


SEARCH im datastring FOR 1 set sep. 


PO 


BY sy-fdpos PLAC 


l set sep. 


l set sep. 


tastring(sy-fdpos). 
ES. 


SPLIT 1 set string AT im separator INTO 


wa flight c-mandt 
wa flight c-carrid 
wa flight c-connid 


wa flight c-fldate 


wa flight c-price 

wa flight c-currency 

wa flight c-planetype 

wa flight c-seatsmax 

wa flight c-seatsocc 
wa flight c-paymentsum. 


MOVE-CORRESPONDING 1 wa flight c TO l wa flight. 


INSERT 1 wa flight INTO TA 


IF sy-subrc = 4. 


ENDIF. 


E 
Z 


DIF. 


ENDWHILE. 


ELSE. 


ENDIF. 


E 


NDFUNCTION. 


BL] 


INSERT 1 wa flight INTO TABL 


El 


| ex it. 


ex 


Flights. 


it doubles. 


MESSAGE i315 WITH im separator RAISING sep not in string. 
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23ABAP program 


REPORT  sapbc402 fmds call function. 


TYPE-POOLS: col. 


TYPES: 
* BEGIN OF st flight c, " <-- not needed anymore 


* END OF st flight c, 


* tt flights TYPE SORTED TABLE OF bc402 s flight 


* WITH UNIQUE KEY fldate carrid connid, 

* ----- CHANGE: SORTED --» STANDARD ------------------------ 
tt gen TYPE STANDARD TABLE OF bc402 s flight color. 

A Vemm EE EE À mi mms im rm n inm a m d 

DATA: 


datastring TYPE string, 
* set string TYPE string, " <-- not needed anymore 
* 
* wa flight c TYPE st flight c, " «-- not needed anymore 
wa flight TYP 


El 


bc402 s flight, 


j 
K 
FU 
E 
El 
z 


it flights bc402 t flights, " <-- N 


E 
z 


El 


it doubles TYPE bc402 t doubles, " <-- N 


it listl TYPE bc402 t flights color, 
it list2 TYPE bc402 t flights color, 
wa list LIKE LINE OF it listl. 


CONSTANTS c num TYPE i VALUE 30. 


PARAMETERS: 


p date TYPE s date. 


INITIALIZATION. 


p date = sy-datum + 30. 
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AT SELECTION-SCREEN. 


IF p date « sy-datum. 


ESSAGE e030(bc402). " <== 'invalid date! 


ENDIF. 


START-OF-SELECTION. 


CALL FUNCTION 'BC402 CREATE SEP STRING' 
EXPORTING 
im number = c num 
im table name = 'SFLIGHT' 
im separator = '#! 
im unique =! ! 
IMPORTING 
ex string = datastring 
EXCEPTIONS 
no data = alk 
OTHERS = 2. 
IF sy-subrc <> 0. 
MESSAGE a038 (bc402). " «-- 'no data found' 


ENDIF. 


CALL FUNCTION 'BC402 STRING INTO FLIGHTS' 


EXPORTING 
im datastring = datastring 
im separator = '#' 
IMPORTING 
ex_it_flights = it flights 
ex it doubles = it doubles 


EXCEPTIONS 
sep not in string - 1 
OTHERS - 2. 
IF sy-subrc <> 0. 
MESSAGE a040(bc402). " <-- 'separator not in string' 
ENDIF. 


* prepare formatted list output 


LOOP AT it flights INTO wa flight. 


MOVE-CORRESPONDING wa flight TO wa list. 
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IF wa flight-fldate « sy-datum. 


wa list-color - col negative. 


ELSEIF wa flight-fldate BETWEEN sy-datum AND p date. 


wa list-color - col total. 


ELSE. 


wa list-color col positive. 


ENDIF. 


INSERT wa list INTO TABLE it listl. 


ENDLOOP. 


SORT it listl BY fldate carrid connid. 


wa list-color = col background. 


LOOP AT it doubles INTO wa flight. 


MOVE-CORRESPONDING wa flight TO wa list. 
INSERT wa list INTO TABLE it list2. 


ENDLOOP. 


* outpt the lists 


PI 


ERFORM list output 
USING it listl. 


IF NOT it list2 IS INITIAL. 


SKIP 2. 


FORMAT RESET. 


WRITE: / 


'The following data sets occurred more then one tim 


SKIP. 


PERFORM list output 
USING it list2. 


ENDIF. 


:'(dob). 
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*& Form list output 

*& rM II MIL 
* List output of an internal table transferred via interface 
x variable p itab. 
Re 
le --> P ITAB 

AS re a a a es a a E i a 


FORM list output 
USING 


p itab TYP 


El 


tt_gen. 


DATA: 


wa itab LIKE LINE OF p itab. 


LOOP AT p itab INTO wa itab. 


FORMAT COLOR - wa itab-color. 


WRITE: / 


wa itab-carrid, 
wa itab-connid, 


wa itab-fldate DD/MM/YYYY, 


wa itab-price CURRENCY wa itab-currency, 


wa itab-currency, 


wa itab-planetype, 


wa itab-seatsmax, 


wa itab-seatsocc. 


ENDLOOP. 


E 
Z 


DFORM. " list output 
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Unit: Function Groups and Function Modules 


Topic: Creating and Calling Function Modules 


24ABAP program 


REPORT 


TYPE-POOLS: 


TYPES: 


DATA: 


col. 


TYPE STANDARD TABL 


Exercise 1: Optional Sections 


sapbc402 fmds call func opt. 


datastring TYPE string, 

wa flight TYPE bc402 s flight, 

it flights TYPE bc402 t flights, 

it doubles TYPE bc402 t doubles, 

it listl TYPE bc402 t flights color, 

it list2 TYPE bc402 t flights color, 

wa list LIKE LINE OF it listl. 
CONSTANTS c num TYPE i VALUE 30. 


PARAMETERS: 
p date TYP 


E s date, 


p list TYPE c AS CHECKBOX. 


INITIA 


p date - 


AT SE 


ESSAGE 


DIF. 


LIZATION. 


sy-datum + 30. 


ECTION-SCREEN. 


p date < sy-datum. 


e030 (bc402). 


"m anc 


E OF bc402 s flight color. 


'invalid date' 
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START-O 


CALL 


IF sy 


F-SELECTION. 


FUNCTION 'BC402 CREATE 


EP STRING' 


EXPORTING 


im number = 


im table name 


im separator 
im unique = 
IMPORTING 


ex string = 


EXCEPTIONS 


no data = 


OTHERS > 


-subrc <> 0. 


MES 


SAGE a038 (bc402). 


ENDIF 


c num 


'SFLIGHT' 


E: ' 


datastring 


" <== 'no data found! 


CALL FUNCTION 'BC402 STRING INTO FLIGHTS' 


IF sy 


EXPORTING 


im datastring 
im separator 
IMPORTING 


ex it flights 


ex it doubles 


EXCEPTIONS 


sep not in string 


OTHERS 


-subrc <> 0. 


MES 


SAGE a040 (bc402). 


ENDIF 


* prepare formatted list output 


datastring 
ved 

it flights 
it doubles 


" «-- 'separator not in string' 


LOOP AT it flights INTO wa flight. 


MOV 


IF wa flight-fldate « sy-da 


wa list-color - col negative. 


ELS 


B 


E-CORRESPONDING wa flight TO wa list. 


tum. 


ET 


EIF wa_flight-fldate 


VEEN sy-datum AND p date. 
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wa list-color - col total. 


wa list-color - col positive. 


INSERT wa list INTO TABLE it listl. 


ENDLOOP. 
SORT it listl BY fldate carrid connid. 
wa list-color - col background. 


LOOP AT it doubles INTO wa flight. 


MOVE-CORRESPONDING wa flight TO wa list. 


INSERT wa list INTO TABLE it list2. 
ENDLOOP. 
IF p list IS INITIAL. " output data as ABAP spool list 


PERFORM list output 
USING it listl. 


IF NOT it list2 IS INITIAL. 
SKIP 2. 


FORMAT RESET. 


WRITE: / 
"The following data sets occurred more then one time:' (dob). 
SKIP. 


PERFORM list output 
USING it list2. 
ENDIF. 


ELSE. " output data using a standard tool: ALV Grid Control 


z display lists in ALV 
CALL FUNCTION 'BC402 ALV LIST OUTPUT' 


EXPORTING 
it listl = it isti 
it_list2 = it list2 
EXCEPTIONS 
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control error - 1. 


IF sy-subrc <> 0. 


WRITE: text-err. " «-- 'Control error. No output with ALV grid 
ENDIF. " control possible.' 
ENDIF. 
rcc See N ee Se a A E E ETE x 
*& Form list output 
Kees sae A A oo Ho eet. ERN -x 
* List output of an internal table transferred via interface 
^ variable p itab. 
————————————————— —  —— — ee Tem x 
* --» P ITAB 


FORM list output 
USING 


El 


p itab TYPE tt gen. 


DATA: 


I 


wa itab LIKE LINE OF p itab. 


LOOP AT p itab INTO wa itab. 


FORMAT COLOR - wa itab-color. 


WRITE: / 
wa itab-carrid, 
wa itab-connid, 


wa itab-fldate DD/MM/YYYY, 


wa itab-price CURRENCY wa itab-currency, 


wa itab-currency, 


wa itab-planetype, 


wa itab-seatsmax, 


wa itab-seatsocc. 


ENDLOOP. 


E 


NDFORM. " list output 


(C) SAP AG BC402 


Solutions for Exercise 2: Optional Section 


Unit: Function Groups and Function Modules 


Topic: Global Data in the Function Group 


25Function group: BC402 FMDS HANDLE STRINGS 


25.2Global data 


DATA it doubles TYPE SORTED TABLE OF bc402 s flight 
WITH NON-UNIQUE KEY carrid connid fldate. 


26Function module BC4 02 STRING INTO FLIGHTS 


FUNCTION bc402 string into flights2. 
*"*"Local interface: 

*"  IMPORTING 

x VALUE(IM DATASTRING) TYPE STRING 


M REFERENCE (IM SEPARATOR) TYPE C 


*" EXPORTING 


mM REFERENCE (EX IT FLIGHTS) TYPE  BC402 T FLIGHTS 


mM REFERENCE (EX IT DOUBLES) TYPE  BC402 T DOUBLES 


*" EXCEPTIONS 


Po SEP NOT IN STRING 


TYPES: 


BEGIN OF 1 st flight c, 


mandt (3) TYPE c, 
carrid(3) TYPE c, 
connid (4) TYPE n, 
fldate (8) TYPE n, 
price(20) TYPE c, 
currency (5) TYPE c, 
planetype(10) TYPE c, 


seatsmax (10) TYPE n, 


seatsocc(10) TYPE n, 


paymentsum(22) TYPE c, 
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END OF 1 st flight c. 
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DATA: 


l wa flight c TYP 


E 


l wa flight TYP 


El 


IF im da! 
CONCAT 
CONCAT 


WHIL 


l set 


I set: 


T 
F 


El 


string  TYP 


sep(2) TYPE c. 


string, 


HIFT im datastring BY 2 PLAC 


IF sy-subrc = 0. 


E 


Li 
SH 
SP 


MO 


INSERT 1 wa flight INTO TABLE 


Set string = im da 


l st flight c, 
bc402 s flight, 


ES. 


tastring CA im separator. 
ENATE 1 set sep im separator INTO 
ENATE 1 set sep im separator INTO 


;, NOT im datastring IS INITIAL. 


EARCH im datastring FOR l1 set sep. 


l set sep. 


l set sep. 


tastring(sy-fdpos). 
BY sy-fdpos PLACES. 


IFT im datastring 
LIT l set string AT im separator INTO 
_wa flight c-mandt 
wa flight c-carrid 
wa flight c-connid 


IF sy-subrc = 4. 


NDI 


ENDWHI 


ENDIF. 


B 


LE. 


wa flight c-fldate 


_ 


F 


wa flight c-price 

wa flight c-currency 

wa flight c-planetype 

wa flight c-seatsmax 

wa flight c-seatsocc 
wa flight c-paymentsum. 


ex it 


VE-CORRESPONDING 1 wa flight c TO 1 wa flight. 


Flights. 


it doubles - ex it doubles. 


ELSE. 


MES 


INSERT 1 wa flight INTO TABLE 


it doubles. 


SAGE i315 WITH im separator RAISING sep not in string. 


E 


ENDIF. 


NDFUNCTION. 
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27Function module BC402 GET DOUBLE FLIGHTS 


FUNCTION BC402 GET DOUBLE FLIGHTS. 


*"*"Tocal interface: 


*"  EXPORTING 


di REFERENCE (EX IT DOUBI 


ES) TYPE  BC402 T DOUBLES 


*" EXCEPTIONS 


IF it doubles IS INITIAL. 


MESSAGE i310 RAISING no doubles. 


ELSE. 


ex it doubles - it doubles. 


ENDIF. 


E 


NDFUNCTION. 


28ABAP program 


REPORT  sapbc402 fmds call function2. 


TYPE-POOLS: col. 


TYPES 

tt gen TYPE STANDARD TABLE OF bc402 s flight color. 
DATA: 

datastring TYPE string, 

wa flight TYPE bc402 s flight, 

it flights TYPE bc402 t flights, 

it doubles TYPE bc402 t doubles, 

it listl TYPE bc402 t flights color, 

it list2 TYPE bc402 t flights color, 

wa list LIKE LINE OF it listl. 


CONSTANTS c num TYPE i VALUE 30. 


PARAMETERS: 


I 


p date TYPE s date. 
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INITIALIZATION. 


p date = sy-datum + 30. 


AT SELECTION-SCREEN. 


IF p date < sy-datum. 


ESSAGE e030(bc402). 


ENDIF. 


START-OF-SELECTION. 


CALL FUNCTION 'BC402 CRE 


EXPORTING 


im number 

im table name 

im separator 

im unique 
IMPORTING 


ex string 


EXCEPTIONS 


no data 


OTHERS 


IF sy-subrc <> 0. 


MESSAGE a038 (bc402). 


E 


NDIF. 


" <-- "invalid date! 
EATE SEP STRING' 
- c num 
= 'SFLIGHT' 
= '#! 
= M 
= datastring 
= À 
= 24, 
" <== 'no data found' 


CALL FUNCTION 'BC402 STRING INTO FLIGHTS2' 


EXPORTING 
im datastring 
im separator 
IMPORTING 
ex it flights 
* EX IT DOUBLES 


EXCEPTIONS 


Sep not in string 


OTHERS 


IF sy-subrc <> 0. 


MESSAGE a040(bc402). 


ENDIF. 


datastring 


it flights 
it doubles 


We <-- 


'separator not in string' 
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* prepare formatted list output 


LOOP AT it flights INTO wa flight. 


MOVE-CORRESPONDING wa flight TO wa list. 


IF wa flight-fldate « sy-datum. 


wa list-color - col negative. 

ELSEIF wa flight-fldate BETWEEN sy-datum AND p date. 
wa 1 ist-color = col total à 
wa list-color = col positive. 

ENDIF. 


INSERT wa list INTO TABLE it listl. 


ENDLOOP. 


SORT it listl BY fidate carrid connid. 


* wa list-color - col background. 

* LOOP AT it doubles INTO wa flight. 

* MOVE-CORRESPONDING wa flight TO wa list. 
k INSERT wa_list INTO TABLE it_list2. 

* ZENDLOOP. 


* output data as ABAP spool list 


FU 


ERFORM list_output 


USING it listl. 


e SL Boe Dos ee HS ee M DAS DAS ee ee ee 
* IF NOT it list2 IS INITIAL. 

* 

bi ENDIF. 
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END-OF-SELECTION. 
SET PF-STATUS 'DETAILS'. 


AT USER-COMMAND. 
IF sy-ucomm = 'DUPLICATES' AND sy-lsind = 1. 


CLEAR: it doubles, it list2. 


CALL FUNCTION 'BC402 GET DOUBLE FLIGHTS' 


IMPORTING 


ex it doubles - it doubles 


EXCEPTIONS 
no doubles = 1 
OTHERS = 2. 


IF sy-subrc <> 0. 


WRITE: / text-nod. " <-- no duplicates found 


ELSE. 


wa list-color = col background. 

LOOP AT it doubles INTO wa flight. 
MOVE-CORRESPONDING wa flight TO wa list. 
INSERT wa list INTO TABLE it list2. 

ENDLOOP. 


WRITE: / 
'"The following data sets occurred more then one time:' (dob). 


SKIP. 


PERFORM list output 
USING it list2. 
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*& Form list output 

*& T — Ó—Á——————Á!———— MÀ——H————————————Ó—À — 
a List output of an internal table transferred via interface 
* variable p itab. 

pi QE WU TENENDO ELE TR UTE ME EP NE FM ME CCP WENN DS METRE vo a A AS 
* --» P ITAB 

Ronnie sie man cis cin mieu recle di pex Re IE de monte Vilnius n Wii LE m 


FORM list output 
USING 


El 


p itab TYPE tt gen. 


DATA: 


I 


wa itab LIKE LINE OF p itab. 


LOOP AT p itab INTO wa itab. 


FORMAT COLOR - wa itab-color. 


WRITE: / 
wa itab-carrid, 
wa itab-connid, 


wa itab-fldate DD/MM/YYYY, 


wa itab-price CURRENCY wa itab-currency, 


wa itab-currency, 


wa itab-planetype, 


wa itab-seatsmax, 


wa itab-seatsocc. 


ENDLOOP. 


E 
Z 


DFORM. " list_output 
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Introduction to ABAP Objects cap d 


Contents: 


Declaring and implementing local classes 


Creating objects 


Accessing components of objects 


Defining local interfaces 
Triggering and handling events 
Position in the ABAP Workbench 
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Introduction to ABAP Objects: Ep 
Unit Objectives SAP 


= At the conclusion of this unit, you will be able to: 


Declare and implement local classes 
Create objects 

Access object components 

Define local interfaces 

Access interface components 


Trigger and handle exceptions 


© SAP AG 1999 


(C) SAP AG BC402 2 


29.3 
Overview: Introduction to ABAP Objects 


m 
= 


ABAP program Interface instance Global interface 
Operations 
i à —> | Definitions 
— 


Class instance 
LILE I GT T 


Subroutine 


Global class 


Definitions 
Implementations 
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29.4 


Functional and Object-Oriented Programming d 


Functions and Data Software Objects Real-world objects 
Data model as abstraction Object model as abstraction 


of real world of real world 
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In functional programming, functions and data were always kept apart, and linked using input/output 
relationships. 

At the center of object-oriented methods are objects. Objects represent abstract or concrete aspects of the 
real world. You describe them by their characteristics and behavior, and these determine their inner 
structure and attributes. The behavior of an object is characterized by its methods. 

Objects form a capsule, containing attributes and behavior. They should make it possible for the model for 
a problem and its solution to map onto each other directly. In object-oriented programming, modeling is 
considerably more important than in function programming. However, once you have finished modeling, 
you can write the program code very quickly. Furthermore, the coding is often so self-explanatory that you 
do not have to use many comments. 

In this unit, we will continue to use our waiting list example. In the function group, the internal table is 
stored globally, that is, separately from the function modules. The function modules manipulate the data in 
the table when we call them externally. 

In the object-oriented view, the waiting list has a central role as an object, that is, it contains not only the 
data about waiting customers, but also methods to manipulate that data, which allow it to manage itself. 
Externally, the object is encapsulated - we are not going to call a function module that displays data, but are 
going to ask the waiting list to display itself. 
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29.5 


From Function Groups to Classes | mp 


Function data Function 
module module 


ABAP program with data 
CALL FUNCTION 


Internal session of an ABAP program 


O SAP AG 1999 


Before Release 4.0, the ABAP components that most closely resembled objects were function modules and 
function groups. 

When a function module is called, an instance of its function group is loaded into the memory area of the 
internal session. Ifa single ABAP program calls function modules from more than one function group, it 
will load more than one instance. 

The principal difference between 'real' object-orientation and function modules is that one program can 
work with instances of several function groups simultaneously, but not with several instances of a single 
function group. 

Our waiting list administration in its current form can only create a single instance, or one waiting list. It 
would be very difficult to administer several waiting lists at runtime. It would be possible to create new 
internal tables dynamically, but they would all be part of the same instance, namely our function group. 
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29.6 


From Function Groups to Classes II mp 


Interface Interface 


ABAP program with data 
CREATE OBJECT 


Internal session of an ABAP program 
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We have dealt with these problems by introducing classes. You define both data and functions in classes, 
not function groups. Using classes, an ABAP program can work with any number of runtime instances 
based on the same classes. (Of course, you can also define several classes in a single ABAP program). 
Instead of loading a single runtime instance of a function group implicitly when you call a function module, 
an ABAP program generates runtime instances of classes explicitly. The individual runtime instances 
represent unique objects. You address these using object references. 

In our example, this means that the waiting list administration can create and delete any number of 
instances of the waiting list class. Each of these instances (objects) is different, yet constructed in a similar 
way. They encapsulate their data. For example, we can declare explicitly the waiting list in which the data 
record should be stored by addressing the appropriate method for this specific waiting list. 
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29.7 


Position of ABAP Objects ENT 
AP 


ABAP Objects is an upwardly-compatible extension of the 
existing ABAP language 


You can use existing ABAP statements within ABAP Objects 
You can use ABAP Objects in existing ABAP programs 
ABAP Objects is fully integrated in the ABAP Debugger 


© SAP AG 1999 


m Object-orientation in ABAP is an upwards-compatible extension of the existing ABAP language. It 
provides ABAP programmers with the advantages of object-orientation, such as encapsulation, 
interfaces, and inheritance, making complex applications easier to control and simplify. 

m Youcan use all conventional ABAP statements and modularization units in ABAP Objects, and, 
conversely, ABAP Objects can also be used in existing ABAP programs. 

m Within ABAP Objects, there are certain syntactic restrictions. For example, you can now only refer to 
ABAP Dictionary types using the TYPE addition, you must specify the types of interface parameters, 
and the names of components in classes (attributes, methods, and events), may only consist of the 
characters A-Z, 0-9, and the underscore character. They cannot begin with a digit. 

To ensure compatibility with earlier releases, the old forms cannot be forbidden outside ABAP Objects. 
This course has been designed to be fully compatible with ABAP Objects, so all forms of all statements 
used in the course are valid in the ABAP Objects context as well. 
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29.8 


Overview: Definition of Data Objects 
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29.9 


Defining Classes Sp 


CLASS cl IMPLEMENTATION. 
METHOD ml. .. ENDMETHOD. 
METHOD m2. .. ENDMETHOD. 
METHOD m3. .. ENDMETHOD. 


All users 
ENDCLASS. 
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Classes are structure templates for objects. You can create them locally in any ABAP program, or globally 
in the R/3 Repository using the Class Builder. 

A class definition consists of a declaration part and an implementation part. 

The components of a class define the attributes and behavior of its instances. Each component must be 
declared in one of the three visibility sections. The visibility sections define the external point of contact 
between other objects and the class : 

W PUBLIC - All public components can be addressed both within the class and by all users. They form the 
external interface of the class. 

W PROTECTED - All protected components can be addressed both within the class and by all subclasses of 
the class. 

W PRIVATE - Private components of a class can only be addressed in the methods of that class. 

You must implement all of the methods of the class in its implementation part. 

m The left-hand side of the graphic shows the declaration and implementation parts of a local class c1. 

m The right-hand side shows the structure of the class with the components in their respective visibility 
sections, and the implementation of the methods. 
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29.10 


Constructors | 


CLASS local class IMPLEMENTATION. 
METHOD constructor. 
ENDMETHOD. 


ENDCLASS. 
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Constructors (instance or static) are special methods that are called implicitly when you create an object or 
access a class for the first time. They are executed automatically by the system and are used to set up the 
initial state of an object. (Compare this with the LOAD-OF- PROGRAM event in a function group). 

You use a constructor whenever you want to set the initial state of an object dynamically and using the 
VALUE addition of the DATA statement is insufficient. The method name is always constructor. This 
is a reserved word. 

Instance constructors can have importing parameters and exceptions. You must pass the import parameters 
inthe CREATE OBJECT statement. 
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29.11 


Applied Example: Declaration | 
HA P SAP 
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As an example, let us look at the local class 1c1 waitlist in the 

SAPBC402 AOOD WAITLISTS program. It contains: 

m An instance constructor, to which you must pass the key data of a flight connection 

m A public method add, to which you must pass a customer data record. 

m The key data for the flight connection, an internal table, and a suitable work area. All of these are 
defined as private data objects. 
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29.12 


Applied Example: Method 


CLASS lcl waitlist IMPLEMENTATION. 
METHOD constructor. 
carrid = im carrid. 
connid = im connid. 
fldate = im fldate. 
ENDMETHOD. 


METHOD add. 
READ TABLE wait list FROM im cust TRANSPORTING NO FIELDS. 


IF sy-subrc <> 0. 
APPEND im cust TO wait list. 
ELSE. 
MESSAGE e202 RAISING in list. 
ENDIF. 
ENDMETHOD. 


ENDCLASS. 
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m When you create a waiting list object, the constructor writes the key data into the private fields. 
m When you call the method add for a waiting list object, the system adds the data record to the list in the 
normal way, as long as it is not already contained in the table. 
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29.14 


Declaring Reference Variables 


DATA 
o listl TYPE REF TO lcl waitlist. 
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To create an object from a class, you first need a reference variable, in our example, o_listl. 

To declare this reference variable, you use the data type REF TO c1ass, which was specially introduced 
for this purpose. 

m Reference variables contain object references. A reference variable contains an object reference, that is, 
a pointer to a data object (see the Data Types and Data Objects unit) 

m Reference variables use reference semantics. When you assign a reference variable to another, only the 
address of the object (the object reference) is passed. After the assignment, the reference points to a 
different object. 

m Youcan only access objects using object references. 

m Youcan use reference variables as attributes of other objects. 
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Creating Objects Ep 
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Objects are instances (that 1s, copies) of classes. Each instance has a unique identity and its own attributes. 
All of the instances of a class belong to the context of an internal session (memory area of an ABAP 
program). You can create any number of instances of the same class. 

Once you have defined the reference variable o_list1 with reference to a class, you can instantiate the 
class. To do this, use the CREATE OBJECT cref statement. The reference variable cref now contains 
a reference to the instance. 

m All classes implicitly contain the reference variable me. In each object, it always contains a reference to 
the object itself, and is consequently known as the self-reference. 

m When you work with attributes of a class in methods in the same class, you do not have to specify a 
reference variable. Instead, the self-reference me is set implicitly by the system. In the implementation of 
our constructor, we could have written me->carrid = ip carridinstead ofjust carrid = 
ip carrid.me-»carrid = ip carrid. Using the self-reference is particularly helpful when 
you are working in the Debugger. 

In the graphic, the instances are displayed as the contents of reference variables are displayed in the 
Debugger. The prefixed number is assigned randomly. Instances are displayed with rounded corners to 
distinguish them graphically from classes. 
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Reference Semantics | 
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Here are several reference variables. They are all declared with reference to the same class. 
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Reference Semantics Il | 
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You can create any number of objects belonging to the same class, each of which is fully independent of 
the others. Each object has its own identity and its own attributes. Each CREATE OBJECT statement 
creates a new object (instance). 
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Reference Semantics lll 
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You can assign refernces to other reference variables using the MOVE statement. This means that more than 
one reference variable can point to the same object. When you assign between reference variables, the 
respective types must be either compatible or convertible. 
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29.19 


Initializing Reference Variables 
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Like other variables, you can initialize a reference variable using the CLEAR statement. The initial value of 
a reference variable is always a reference that does not point to an object - an "empty" address. 
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Garbage Collection | 
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If no more references point to an object, it can no longer be addressed in a program, but still exists in 
memory. This memory space can normally be released under these circumstances. 

Garbage Collection is a mechanism that ensures that the memory space is released automatically. The 
garbage collector scans the entire internal session for objects to which no more references are pointing, and 
deletes them. 
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29.21 


Garbage Collection Il 


DATA: 
o listl TYPE REF TO 
o list2 TYPE REF TO 
o list3 TYPE REF TO 


CREATE OBJECT o listl 
EXPORTING im carrid 
im connid 


im fldate = 


CREATE OBJECT o list2 
EXPORTING im carrid 
im connid 


im fldate = 


o list3 - o list2. 
CLEAR o list2. 


o list3 = o listl. 
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lcl waitlist, 
lcl waitlist, 
lcl waitlist. 


'LH' 
"400 
"19991119". 


'"AA' 
rays 
'19991231'. 


3 LCL WAITLIST 
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Reinstantiation | 
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Each CREATE OBJECT statement creates a new instance. The reference in o. 1ist3 now points to this 
instance. Thus the CREATE OBJECT statement has overwritten the previous content of the reference 
variable with the new reference. 


Objects can get lost this way, unless, for example, o. list1 contained the same reference. 
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29.23 


Calling Methods | 


o list1-2wait list now contains 


the contents of wa cust. 
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Once you have created an instance of a class, you can call its methods using CALL METHOD. You must 
specify the name of the method and the object to which you want to apply it. Use the following syntax: 
CALL METHOD ref-»meth, where ref is a reference variable that points to an object, and meth is a 
method of the class to which it belongs. The operator -> is called the object component selector. 

You can call a method dynamically using parentheses in the syntax, as is normal in ABAP. Unlike 
dynamic subroutine and function module calls, you can also pass the parameters and handle the exceptions 
dynamically. For further information, refer to the online documentation. 
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Each instance of wait list 


contains different values 
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The program calls the same method of different objects. 
Each object has its own set of attributes with which its methods work. 
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29.26 


Interfaces ENT 
AP 


Definition of a point of contact to a class without any 
implementations 

Classes can implement several interfaces 

Uniform access using interface references 


n class3 


n class1 
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An interface is a public object containing attributes, methods, and events. It only contains a declaration, 
and is defined independently of classes. The components of an interface are implemented in the classes 
that use the interface. The classes then have a uniform external point of contact, and are responsible for 
making the interface's functions available by implementing its methods. 

You can assign a type to a reference variable by referencing it to an interface. However, there is no such 
thing as an instance of an interface. Instead, an interface reference can point to instances of those classes 
that have implemented the components of the relevant interface. You can access these components 
uniformly through the interface reference. 

This concept allows related classes to provide similar functions that can be addressed in a uniform way 
despite being implemented in different classes. In short, Interface references allow you to address different 
classes in the same way. This is often referred to as polymorphism. 
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29.27 


Defining Interfaces 


INTERFACE il. 
DATA: al 
METHODS: m1 
EVENTS: el 

ENDINTERFACE. 


implementation 


CLASS cl IMPLEMENTATION. 
METHOD il~m1. 
ENDMETHOD. 


ENDCLASS. All users 


© SAP AG 1999 


The public components of a class define its external point of contact. 

An interface is a standalone object that allows you to define or extend this external point of contact. 
Interfaces thus allow you to address the object components of different classes in a uniform way. 

* The left-hand side of the diagram shows the definition of a local interface il and the declaration and 

implementation parts of a local class c1 that implements interface il in its public section. 

The interface method m1 must be implemented in the implementation part of class c1 as il-m1. 

The right-hand side shows the structure of the class with the components in their respective visibility 

sections, and the implementation of the methods. The interface components extend the public 

components of the class. All users can address both the class-specific public components and the 

interface components. 

Classes can implement several interfaces in parallel. However, they must implement all the methods of 
the relevant interface. 

Interfaces can be nested. (INTERFACE ... INTERFACES ... ENDINTERFACE.) 
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29.28 


Applied Example: Declarations 


INTERFACE lif status. 
METHODS display. 
ENDINTERFACE. 


CLASS lcl waitlist DEFINITION. 
PUBLIC SECTION. 


INTERFACES lif status. 
ENDCLASS. 
CLASS lcl clerk DEFINITION. 
PUBLIC SECTION. 


INTERFACES lif status. 


PRIVATE SECTION. 
DATA cnt look for TYPE i. 
ENDCLASS. 
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As an example, let us look at the local interface Lif status ofthe program 
SAPBC402 AOOD WAITLISTS. It contains a method declaration, display. This method causes 
various objects of different types to indicate their status by means of an interface. 

The second class, 1c1 clerk, describes the statuses of clerks at the airport counter. More detailed 
information about this will follow. The counter cnt. look for stands for a particular status of a clerk. 

This interface method must now be implemented in the two classes. First, however, the interface must be 
declared in the public section of the classes. 
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29.29 


Applied Example: Implementations cap d 
AP 


CLASS lcl waitlist IMPLEMENTATION. 


METHOD lif status-display. 
CALL FUNCTION 'BC402 AOOD WAIT DISPLAY' 
EXPORTING 
ip waitlist wait list 
EXCEPTIONS 
list empty - 1 
OTHERS ZE 


ENDMETHOD. 


ENDCLASS. 


CLASS lcl clerk IMPLEMENTATION. 


METHOD lif status-display. 
MESSAGE i194 WITH cnt look for 
ENDMETHOD. 


ENDCLASS. 
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m Inthe waiting list, we are going to display the status by calling a function module that displays the list in 
a modal dialog box. 

m In the class for the clerk, we will implement the interface method differently. In this case, we will send a 
message informing the user of the status of a clerk. 
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To access an object, we always need a reference variable. 
Instead of creating reference variables with reference to a class, we can also create them by referring to 
an interface (in this case, à status1). This kind of reference variable can contain references to objects 
of classes that implement the corresponding interface. 


m The example then creates a class instance o_list1. We can access all the components ofo_listl in 
the normal way. After we have assigned o listltoi statusl, we can also use i_statusl to 
address the interface components. Their behavior then depends on how they have been implemented in 
the class lcl_waitlist. Ifi_status1 were an object of class lcl clerk, the interface 
components would behave differently when we accessed them. 
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Calling Interface Methods 


i_status1->display would then 
call the function module 


i status1 


i_status1->display would then 
send the message 
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m [fa class reference cref points to a class instance, you can call a method meth of an interface intf 
that has been implemented by the class using the form 
CALL METHOD cref->intf~meth 

m [fan interface reference iref, created with reference to the interface intf, points to a class instance, 
you can call the method meth of the interface intf using the form 
CALL METHOD iref-»meth 

The same principle applies to interface attributes. 

By using interface references, you can access those components of a class that have been added by the 
implementation of an interface. 
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29.32 


e Declare reference variables 


e Create objects 


€ Access attributes and call methods 
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29.33 
ABAP Objects: Advanced Topics 


Functional methods 


Static attributes and static methods 
(including class constructor) 


Global classes 
Global interfaces 


Inheritance 
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The topics listed above would be a logical continuation from the stage that we have just reached. However, 
it would not be possible to do them justice in the time available to us here. 
Instead, let us continue with another important concept of object-oriented programming - events. 
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Events 


€ Events are components of classes 


@ Methods can trigger the events of their class 


e Handler methods can react to events 


2 HANDLER 


mr m 


=~ 1 HANDLER 
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A particular feature of ABAP Objects is that it allows you to trigger events and react to them. ABAP 
Objects events are not to be confused with the events that are part of the runtime environment and occur 
during user dialog processing (see the ABAP Runtime Environment unit). 

An event in object orientation can be triggered by a single object, for example, to indicate that its state has 
changed. Other objects can then react to selected events. This is implemented using special events, which 
you do not have to call explicitly. Instead, they are called implicitly when the event is triggered - as long as 
you have registered them to react to that particular event. 

During the definition and at runtime, neither the sender nor receiver of an event "knows" anything about 
the other. Objects trigger events without knowing if it will be received or how any receiver will react to it. 
Conversely, receivers are registered for events without knowing whether the event will be triggered at all, 
or by which object. 

At runtime, however, it is possible to identify the trigger of the event using the sender parameter. 
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29.36 


Triggering Events | 


CLASS raiser class IMPLEMENTATION. 
METHOD event raiser. 
RAISE EVENT evt [EXPORTING par - value 
ENDMETHOD . 


ENDCLASS. 
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m You declare events as components in the declaration part of a class. They can have export parameters, 
but these must be passed by value. 

m To trigger an event in a method, use the RAISE EVENT statement. You must pass all of its parameters 
(except any you defined as optional) using the EXPORTING addition. 
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29.37 


Handling Events 


CLASS handler class IMPLEMENTATION. 
METHOD event handler. 
ENDMETHOD. 


ENDCLASS. 
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Any class can contain event handler methods for selected events of selected classes. These methods react to 
the events when they are triggered. 

m The interface of an event handler method can have importing parameters, but may only contain the 
formal parameters that are defined as exporting parameters for the event in question . The attributes of 
the parameter are inherited from the event (their types are not specified explicitly). The handler method 
does not have to receive all of the parameters passed in the RAISE EVENT statement. 

m Events have an implicit parameter called sender, which you can also receive by listing it in the 
IMPORTING addition. This allows the handler method to access the trigger, and makes it possible for it 
to make its own behavior dependent on the name of the trigger. 

If a class declares an event handler method, it and its instances are, in principle, capable of handling the 
event in question. 
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29.38 
Summary: 


Event Triggers 


CLASS cl IMPLEMENTATION. CLASS c2 IMPLEMENTATION. 
METHOD ml. METHOD m2. 
al = ... 
RAISE EVENT el 
EXPORTING p1 = al. Ao 
ENDMETHOD. ENDMETHOD. 
ENDCLASS. ENDCLASS. 
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m Here, class c1 contains an event e1, which exports an integer when it is triggered by method m1. 
m Class c2 contains a method m2, which can handle event e1 of class c1 and import a value. At runtime, 
this parameter of m2 is assigned type i. 
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Registering Event Handlers 
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For an event handler method to react to an event, you must specify - at runtime - the trigger(s) (object or 
objects) to which it should react). (When you declare the class, you can only specify the class of the 
triggering object). To link a handler method to an event trigger, use the SET HANDLER statement. For 
instance events, you must add the FOR addition to specify the triggering instance for which you want to 
register the handler - using one of two options: 

m Register for a single triggering instance, using a reference variable (here: o. raiser) 

m Register the handler for all instances using the FOR ALL INSTANCES addition. This registration also 
includes potential triggering instances that have not yet been created. 

The optional ACTIVATION addition, available for both variants, allows you to recall individual 
registrations or set new ones dynamically. The argument in this addition must be a field with type c and 
length 1. You can set the ACTIVATION flag as follows: 

m flag = space: Deregisters the event handler method 

m flag = 'X': Registers the event handler method. 
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29.40 


Applied Example: Trigger event Ep 


CLASS lcl waitlist IMPLEMENTATION. 
CONSTANTS max entries LIKE sy-tabix VALUE '10'. 
DATA last pos LIKE sy-tabix. 
METHOD add. 


DESCRIBE TABLE wait list LINES last pos. 
IF last pos < max entries. 
APPEND ip cust TO wait list. 
ELSE. 
RAISE EVENT list full EXPORTING ex carrid - 
ex connid 
ex fldate - 


ENDMETHOD. 
ENDCLASS. 
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We will now extend the waiting list example: If the number of entries in the list reaches a certain maximum 
value, we want the waiting list to trigger an event. There are various things that the clerk needs to do 
when the event is triggered. 

m In the declaration part of the class 1c1 waitlist, we declare the event List full. This has three 
parameters that can be exported when the event is triggered. 

m In the implementation part, we change the add method accordingly. 
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Applied Example: Handling an Event 


CLASS lcl clerk IMPLEMENTATION. 


METHOD say something. 
MESSAGE i197 WITH ... 
ENDMETHOD. 


METHOD change planetype. 
MESSAGE i195 WITH ... ex carrid ex connid ex fldate. 
ENDMETHOD. 


ENDCLASS. 
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We have now created another class 1c1 clerk for our clerk: 

m In the declaration part, we specify that the two methods can be executed when instances of the class 
lcl waitlist trigger the event list full. The method change planetype should be able to 
process all three export parameters. 

m In the implementation part, we program the functions of the methods as normal. In this case (for 
simplicity) the methods just send various messages. In the method change planetype, the 
parameters received at runtime can also be displayed with the message. 
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Applied Example: Registering Event Handlers EN 
ML on 


PROGRAM ... 


DATA: 
o listl TYPE REF TO lcl waitlist, 
o clerkl TYPE REF TO lcl clerk. 


CREATE OBJECT o listl EXPORTING im carrid 'LH' 
im connid '400' 
im fldate '19991119'. 


CREATE OBJECT o clerkl. 


SET HANDLER o clerkl->say something FOR o listl. 


SET HANDLER o clerkl->change planetype FOR o listl. 


© SAP AG 1999 


Once we have created an instance o_clerkl of class lcl clerk, we can register the methods of the 
object to react to events triggered by the object o. list1.If we do not register the methods, they will not 
be executed, even if the event is triggered. 

This allows us to specify exactly when the method should react to the event, as well as to define the groups 
of triggers and handlers. 

If, for example, we were to create more waiting lists from the class, which could also trigger events, our 
clerk would only be able to react to events from waiting list o 1ist1 unless we registered its methods for 
other instances. 

Conversely, if we create more objects from the clerk class, but do not register their methods to react to an 
event, only our first clerk o. clerk1 will react. We could also make it react "partially" by only registering 
some of its handler methods. 
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Preview: Preview: Class Builder (Technical View) ENT 
Mz nl 


Class Builder 


CLASS-POOL ... . CLASS-POOL ... 


TYPES: TYPES: 


CLASS ... DEFINITION. INTERFACE ... DEFINITION. 


ENDCLASS. ENDINTERFACE. 


CLASS ... IMPLEMENTATION. 


ENDCLASS. 
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The Class Builder is a tool in the ABAP Workbench that you use to create global classes and interfaces. 
You define the components of classes and interfaces on the screen. The Class Builder then generates the 
corresponding ABAP source code automatically. You have to write the implementation part of the class 
yourself. For this, the Class Builder calls the ABAP Editor. 


Global classes are stored in special ABAP container programs called class pools (type K program). Global 

interfaces are stored in interface pools (type J program). Each class or interface pool contains the definition 
of a single global class or interface. The class or interface pool is also generated automatically by the Class 
Builder. 


Class pools are similar to function groups. They contain both declarative statements and executable 
statements, and they cannot be started directly. You use the CREATE OBJECT statement to create an 
instance of a global class (an object) in a program. 


Further Information: 

Various other courses explain further syntax variants used in ABAP Objects and how to use global classes, 
in particular, BC400 (ABAP Workbench: Concepts and Tools), BC410 (Programming User Dialogs), and 
BC412 (ABAP Dialog Programming With EnjoySAP Controls). 

There is also a dedicated ABAP Objects course, BC404. 
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29.44 


Introduction to ABAP Objects: ET 
Unit Summary AMT 
You are now able to: 


Declare and implement local classes 
Create objects 

Access object components 

Define local interfaces 


Access interface components 


Trigger and handle exceptions 
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Calling Programs and Passing Data cap 4d 


Contents: 


Techniques for calling programs 


Memory model 


© 
© 
€ Techniques for passing data 
© 


Use 
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30.2 


Calling Programs and Passing Data: Ed 
Unit Objectives SAP 


= At the conclusion of this unit, you will be able to: 


€ Describe the R/3 memory model 
€ Call executable programs 
€ Call transactions 


€ Use the various memory areas to pass data 
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30.3 
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30.4 


Overview: Synchronous Program Calls 


DAF 


P» Synchronous Program Calls 


Memory Management 
Transferring Data 
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Synchronous Program Calls ERU 
AP 


Main Main 
memory memory 


| Call program | New program 


End called program | Program 1 


EN Program 2 
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There are two ways of starting an ABAP program from another ABAP program that is already running: 

* By interrupting the current program to run the new one - the called program is executed, and 

afterwards, processing returns to the program that called it. 

* By terminating the current program and then running the new one. 
Complete ABAP programs within a single user session can only run sequentially. We refer to this 
technique as using synchronous calls. 
If you want to run functions in parallel, you must use function modules. For further information about this 
technique, refer to course BC415 (Communication Interfaces in ABAP,) and the documentation for the 
CALL FUNCTION ... STARTING NEW TASK ... statement. 
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Executing an Executable Program ER 
Mz m 


prog name 2 


SUBMIT prog name 2. 


€ F3 


T prog name 2 
SUBMIT prog name 2 PROGRAM ... List 
AND RETURN. 


' FS 


Selection screen 


SUBMIT prog_name 2 prog_name_2 
VIA SELECTION-SCREEN PROGRAM ... 
AND RETURN. 
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To start an executable (type 1) program, use the SUBMIT statement. 

If you use the VIA SELECTION-SCREEN addition, the system displays the standard selection screen of 
the program (if one has been defined). 

If you use the AND RETURN addition, the system resumes processing with the first statement after the 
SUBMIT statement once the called program has finished. 

For further information, refer to the documentation for the SUBMIT statement. 


(C) SAP AG BC402 6 


30.7 


Calling a Transaction Pay 
Ar 


Program 2 Transaction 


‘stScreen|  [SAPMt name 


2nd Screen 


‘stSereen) | SAPM t_name 


2nd Screen 


[AND SKIP FIRST SCREEN]. 


[AND SKIP FIRST SCREEN]. 
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When you use the LEAVE TO TRANSACTION 'T CODE' statement, the system terminates the current 
program and starts the transaction with transaction code T_CODE. The statement is the equivalent of 
entering /n«T CODE» in the command field. 

CALL TRANSACTION 'T CODE' allows you to insert an ABAP program with a transaction code into 
the call chain. 

To terminate an ABAP program, use the LEAVE PROGRAM statement. If the statement occurs in a 
program that you called using CALL TRANSACTION 'T CODE' or SUBMIT prog name AND 
RETURN, the system resumes processing at the next statement after the call in the calling program. 

In all other cases, the user returns to the application menu from which he or she started the program. 
Ifyouusethe ...AND SKIP FIRST SCREEN addition, the system does not display the screen 
contents of the first screen in the transaction. However, it does process the flow logic. 

If you started a transaction using CALL TRANSACTION that uses update techniques, you can use the 
UPDATE... addition to specify the update technique (asynchronous (default), synchronous, or local) that 
the program should use. For further information, refer to course BC414 (Programming Database Updates) 
and the online documentation. 
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Transferring Data 
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Logical Memory Model ERU 
Mz nl 


User's terminal session 


/External session (window) 1 /External session (window) 2\ 


Internal session 1,2 


Internal session 1,1 Internal session 2, 


Program 1,1 


ABAP memory 2 


e 
o 
E 
o 
E 
Ou 
< 
a 
< 


| 


SAP memory 
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The way in which main memory is organized from the program's point of view can be represented easily in 
the above model. There is a distinction between internal and external sessions: 

m Generally, an external session corresponds to an R/3 window. You can create a new session by 
choosing the menu function System-> New session or by entering /o«T CODE» in the command field. 
You can have up to six external sessions open simultaneously in one terminal session. 

m External sessions are subdivided into internal sessions (placed on a stack). Each program that you run 
occupies its own internal session. Each external session can contain up to nine internal sessions. 

Data for a program is only visible within an internal session. In general, data visibility 1s restricted to the 
relevant program. 

The following pages illustrate how the stack inside an external session changes with various program calls. 
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Inserting a Program 1 Ep 
Mz m 


User's terminal session 


External session (window) 1 /External session (window) 2\ 


Internal session 2, 


Internal session 1,1 
SAP memory 
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ABAP memory 2 
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30.11 


Inserting a Program Il ERU 
Mz nl 


User's terminal session 


External session (window) 1 /External session (window) 2\ 


Internal session 1,2 


Program 1,2 


Internal session 1,1 


SAP memory 
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Internal session 2, 


ABAP memory 2 


e 
o 
E 
o 
E 
Ou 
< 
a 
< 


When you insert a program, the system creates a new internal session, which contains the new program 


context. 
The new session is placed on the stack. The program context of the calling program also remains on the 


stack. 
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Terminating the Inserted Program ER 
e'm on 


User's terminal session 


External session (window) 1 /External session (window) 2\ 


Internal session 1,1 Internal session 2, 


SAP memory 
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ABAP memory 2 


e 
o 
E 
o 
E 
Ou 
< 
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When the called program finishes, its internal session (the top one in the stack) is deleted. 
Processing is resumed in the next-highest internal session in the stack. 
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Starting a New Executable (Type 1) Program I ENT 
SAP 


User's terminal session 


External session (window) 1 /External session (window) 2\ 


Internal session 1,3 


Internal session 1,2 


Program 1,2 


Internal session 1,1 


SAP memory 


Internal session 2,1 


ABAP memory 2 


e 
o 
E 
o 
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< 
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When you end a program and start a new one, there is a difference between calling an executable program 
and calling a transaction. 
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Starting a New Executable (Type 1) Program II ENT 
SAP 


User's terminal session 


External session (window) 1 /External session (window) 2\ 


Interner Modus 1.3' 


Programm 1.3' 


Internal session 1,2 


Program 1,2 


Internal session 1,1 


SAP memory 


Internal session 2,1 


ABAP memory 2 


e 
o 
E 
o 
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If you call an executable program using its program name, the system destroys the internal session of the 
program that you are terminating (the top one from the stack). 

The system creates a new internal session, which contains the program context of the called program. 
The new session is placed on the stack. Any program contexts that already existed are retained. The 
topmost internal session on the stack is replaced. 
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If you start a program using its transaction code, all of the internal sessions on the stack are destroyed. 
The system creates a new internal session, which contains the program context of the called program. 
After the call, the ABAP memory is reset. 
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When you call a function module, the ABAP runtime system checks whether you have already called a 
function module from the same function group in the current program. 
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m If this is not the case, the system loads the relevant function group into the internal session of the 
calling program. Its global data is initialized and the LOAD-OF- PROGRAM event is triggered. 

m If your program had already used a function module from the same function group before the call, the 
function group is already resident in the internal session. The new call accesses the same global data 
once again. We say that the function group remains active until the end of the program that called it. 

The data is only visible in the corresponding program - each program can only address its own data, even if 
there are identically named objects in both programs. 

The same applies when the stack is extended. For example, if a program is added to the stack, and it calls a 
function module in the same function group in its turn, the latter is loaded again into the new internal 
session. That is, its data objects are created and initialized once again, and can only be addressed in the 
new session inside the function group. 

The graphic shows the first call to a function module in a particular function group. 
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Overview: Transferring Data 


DAF 


Synchronous Program Calls 


Memory Management 
P» Transferring Data 
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Overview: Passing Data Between Programs Ep 


SAP memory 
~ (SET /GET parameters) 


) 


a 3 ABAP memory SS 
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Interface 
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There are various ways of passing data to programs running in separate internal sessions: 

You can use 

O The interface of the called program (usually a standard selection screen) 

© ABAP memory 

© SAP memory 

@ Database tables 

G Local files on your presentation server 

The following pages illustrate the first three of these methods. 

For further information about passing data using database tables or the shared buffer, refer to the 
documentation for the EXPORT and IMPORT statements. 

For further information about transferring data between an ABAP program and your presentation server, 
refer to the documentation of function modules WS UPLOAD and WS DOWNLOAD. 
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Passing Data Using the Program Interface Pay” 


EXPORTING 
IMPORTING 


EXCEPTIONS 


or 
Standard selection screen 
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Function modules have an interface that the calling program and the function module use to exchange data. 
Subroutines also use a similar technique. There are constraints associated with using the interface of a 
remote-enabled function module. When you call ABAP programs that have a standard selection screen, 
you can pass data for the input fields in the call. There are two ways to do this: 

m By specifying a variant for the selection screen when you call the program. 

m By specifying values for the input fields when you call the program. 
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Insert pattern 


MODULE user command 0200 INPUT. 


CASE save ok. 
WHEN 'CTRYFR'. 
sapbc402 tabd hashed 


eee pa ctry = sdyn conn-countryfr 
AND RETURN] 


ENDCASE. 
ENDMODULE. " USER COMMAND 0200  INPUT 
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The WITH addition in the SUBMIT statement allows you to assign values to the fields on a standard 
selection screen. The abbreviations "EQ, NE, ...; I, E" have the same meanings as with select-options. 

If you want to pass several selections to a selection option, you can use the RANGES statement instead of 
individual WITH additions. (See the /nput Fields on Selection Screens and Selection Tables in the Data 
Types and Data Objects unit of this course). The RANGES statement creates a selection table, which you 
can fill as though it were a selection option. You then pass the whole table to the executable program. 

If you want to display the standard selection screen when you call the program, use the VIA 
SELECTION-SCREEN addition. 

When you use the SUBMIT statement, use the Pattern function in the ABAP Editor to insert an appropriate 
statement pattern for the program you want to call. It automatically supplies the names of the parameters 
and selection options that are available on the standard selection screen. 

This example is an extract from the transaction BC402 CALD CONN. If the user asks for all the cities with 
an airport in a particular country, the executable program SAPBC402 TABD HASHED is called. The 
parameters are filled with the city and country code from the transaction. The standard selection screen 
does not appear. 

For further information about working with variants and about other syntax variants of the WITH addition, 
refer to the documentation for the SUBMIT statement. 
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You can use SAP memory and ABAP memory to pass data between programs. 

m SAP memory is a user-specific memory area for storing field values. It is only of limited value for 
passing data between internal sessions. Values in SAP memory are retained for the duration of the user's 
terminal session. The memory can be used between sessions in the same terminal session. You can use 
the contents of SAP memory as default values for screen fields. All external sessions can use the SAP 
memory. 

m ABAP memory is also user-specific. There is a local ABAP memory for each external session. You can 
use it to exchange any ABAP variables (fields, structures, internal tables, and complex objects) between 
the internal sessions in any one external session. 

When the user exits an external session (/i in the command field), the corresponding ABAP memory is 


automatically initialized or released. 
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Passing Data Using the ABAP Memory 


Internal session 1 
PROGRAM pl ... . 
DATA: pl spfli TYPE spfli, 
it spfli TYPE STANDARD TABLE 
OF spfli. 
EXPORT 
wa fli FROM pl spfli 
it spfli 
TO MEMORY ID 'MY ID'. 


ABAP memory 


Internal session 2 


PROGRAM p2 ... . 
DATA: p2 spfli TYPE spfli, 
it spfli TYPE STANDARD TABLE 
OF spfli. 
IMPORT 
wa fli TO p2 spfli 
it spfli 
FROM MEMORY ID 'MY ID'. 
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Usethe EXPORT ... TO MEMORY statement to copy any number of ABAP variables with their current 
values (data cluster) to ABAP memory. The ID ... addition enables you to identify different clusters (up 
to 60 characters long). 

If you usea new EXPORT TO MEMORY statement for an existing data cluster, the new one will overwrite 
the old. 

The IMPORT ... FROM MEMORY ID ... statement allows you to copy data from ABAP memory 
into the corresponding fields of your ABAP program. In the IMPORT statement, you can also restrict the 
selection to a part of the data cluster. 

The variables into which you want to read data from the cluster in ABAP memory must have the same 
types in both the exporting and the importing programs. 

To release a data cluster, use the FREE MEMORY ID ... statement. 

Remember when you call programs using transaction codes that you can use the ABAP memory to pass 
data to the transaction only when calling it (CALL TRANSACTION). 
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Passing Parameters using SAP Memory Pay 
AP 


Program A SET PARAMETER ID 
'CON' FIELD sdyn conn-connid. 


CALL TRANSACTION 
'BC402 TABD SORT'. 


SAP memory 
CAR 


CON 400 | 
Program BRE 
Airline 


Flight no. 


GET PARAMETER ID 
or 'CON' FIELD sdyn conn-connid. 
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You can define memory areas (parameters) in the SAP memory in various ways: 

m By creating input/output fields with reference to the ABAP Dictionary. These take the parameter name 
of the data element to which they refer. 

Alternatively, you can enter a name in the attributes of the input/output fields. 

Then, you can also choose whether the entries from the field should be transferred to the parameter 
(SET), or whether the input field should be filled with the value from the parameter (GET). 

To find out about the names of the parameters assigned to input fields, display the field help for the field 
(F1), then choose Technical info. 

m You can also fill the memory areas directly using the SET PARAMETER ID 'PAR ID' FIELD 
var. statement and read from them using GET PARAMETER ID 'PAR ID' FIELD var. 

m Finally, you can define parameters in the Object Navigator and let the user fill them with values. 

This example is an extract from the transaction BC402 CALD CONN. If the user chooses to maintain 
flight dates, the system calls the BC402 TABD SORT transaction. The airline is passed using the 
parameter CAR, while the flight number is passed using parameter CON (SET option selected for the 
field in the Screen Painter). SET). 


(C) SAP AG BC402 25 


30.26 


Preview: Passing Data Using an Internal Table END 
AP 
Program 2 Transaction 


DATA: 
bi itab TYPE TABLE OF bdcdata, 
bi wa TYPE bdcdata. 


* fill bi itab 


* call other program 
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st screen 
IF sy-subrc : = 


ELSE. 


SAPM t riame 
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When you call a transaction using the statement CALL TRANSACTION 'T CODE' USING bi itab 
you can run the transaction T CODE using the values from bi itab in the screen fields. The internal 
table must have the structure bdcdata and be filled accordingly. 

The MODE addition allows you to specify whether the screen contents should all be displayed ('A' - the 
default setting), only when an error occurs ('E”), or not at all ('N'). You can use the MESSAGES INTO 
mess itab statement to specify an internal table into which any system messages should be written. 
The internal table must have the structure bdcmsgcoll1. 

You can find out if the transaction was executed successfully from the system field sy-subrc. 

You might use this technique if 

m You are processing in the foreground, but the input fields have not been filled using GET parameters, 

m You want to process the transaction invisibly. In this case, you normally have to pass the function codes 
in the table as well. 

This technique is also one of the possible ways of transferring data from non-SAP systems. When you do 
this, the internal table with the structure bdcdata must be filled completely. 
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Screen number 


Only in 1st 
record on screen 


Filling the internal table in batch input format: 


First record Field name, Field value 


Case- 


'X' for 1st sensitive! 


record on 
Screen, 
otherwise ' ' 


m Each screen that you want to process automatically in the transaction must be identified by a line in 
which only the fields program, dynpro and dynbegin are filled. 


m After the record that identifies the screen, use a new bdcdata record for each field you want to fill. 


These records use the fields £nam and fval. You can fill the following fields: 


* Input/output fields, with data 


* The command field (bdc_okcode), with function codes 
e The cursor position field (bdc cursor), with field names. 


You also use the CALL TRANSACTION technique to transfer data from third-party systems. For 
information about how to use this technique for data transfer, refer to course BC420 (Data Transfer) or 


the online documentation. 
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psu paring Data Using an Internal Table cap d 
-— — Cc 


SAPBC402 CALD CREATE CUSTOMER 0100 
SCUSTOM-NAME EE 


| | SCUSTOM-CITY| «current city» 


| | BDC OKCODE SAVE | 


DATA: 


wa bdcdata TYPE [elle ELE 


it bdcdata LIKE TABLE OF wa bdcdata. 
*** fill the bdcdata-table 


CALL TRANSACTION 'BC402 CALD CRE CUST' 


Exe it bdcdata 
MODE 'N'. 


IF sy-subrc <> 0. 
MESSAGE ... WITH sy-subrc. 
ENDIF. 
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The above example refers to transaction BCA02 FMDD FG. When the user creates a new customer entry, 
the program calls transaction BC402 CALD CRE CUST. This transaction has not implemented import 
from ABAP memory, and its input fields are not set as GET parameters. The customer data is therefore 
passed using an internal table and processed invisibly. 

If the operation is successful, the new customer record can be entered in the waiting list. 


The relevant internal table in bdcdata format is shown above. At runtime, current name 
stands for the customer name from the input field, current city stands for the city. 


You use the field BDC_OKCODE to address the command field, into which you enter the function code 
that would have been triggered by the user choosing a function key, pushbutton, or menu entry in dialog 
mode (or by entering a code directly in the command field). 
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Calling Programs and Passing Data: Ed 
Unit Summary SAP 
You are now able to: 


Describe the R/3 memory model 
Call executable programs 


Call transactions 


Use the various memory areas to pass data 
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Contents: 


e Field symbols 


@ References 


e Run Time Type Identification 
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Dynamic Programming: Ed 
Unit Objectives AP" 


ds At the conclusion of this unit, you will be able to: 


e Use dynamic attributes in suitable ABAP 
statements 


Use field symbols 
Use references 


Use RTTI classes 
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Overview: Dynamic Programming 
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Using Dynamic Attributes in Statements 


@ Replacing a literal with a variable: 


e Replacing an identifier with a variable in parentheses 
(without spaces!): 


@ Replacing a list with an internal table: 
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In many ABAP statements, you can pass attributes dynamically. The syntax for doing this differs, 
depending on the statement you use: 

m If you pass the attribute as a literal in the static form of the statement, you can replace the literal with a 
variable. 

m If you pass the attribute as an identifier in the static form of the statement, you can replace the identifier 
with a variable in parentheses. Make sure there are no spaces between either parenthesis and the 
variable. 

m If the attribute is a list, you can replace it with an internal table. 

Note: you must use upper case when filling data objects with literals. 

For more information on which of these three options you can use with a specific ABAP statement - if any 
- refer to the ABAP documentation for that statement. 

In most cases however, if you do not know the identity of specific attributes until runtime, you must work 
with field symbols and references. 
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Field Symbols ENT 
AP 


FIELD-SYMBOLS «fs» ((TYPE|LIKE) ... |TYPE ANY}. 
ASSIGN ... dataobject TO «fs». 
UNASSIGN «fs». 

<fs> IS ASSIGNED 


DATA int TYPE i VALUE 15. En int 
B z BEA fs int ( ) | 45 int 


int KOE S. fs int (adr int d» 15 Mint 


WRITE: / int, hfs in 


Bes incB- 17. fs int (adr int QD 17 int, 


WRITE: / int, Hrs indd 


fs int / Mu «7 Mint | 


WRITE: / 'fieldsymbol not assigned' (fna). 
ENDIF. 
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Field symbols allow you symbolic access to an existing data object. All of the accesses that you make to 
the field symbol are made to the data object assigned to it. Field symbols are similar to dereferenced 
pointers. Thus, you can only access the content of the data object to which the field symbol points. 
(That is, field symbols use value semantics). 

m You declare field symbols using the FIELD-SYMBOLS «fs» statement. Note that the parentheses 
(<>) are part of the syntax. 

m You use the ASSIGN statement to assign a data object to the field symbol «£s». If the field symbol is 
not typed (TYPE ANY), it adopts the type of the data object. 

By specifying a type for the field symbol, you can ensure that only compatible objects are assigned to it. 


Example: 
DATA: date TYPE d VALUE '19991231', time TYPE t. 
FIELD-SYMBOLS: «fs date» TYPE d, «fs time» TYPE t. 
ASSIGN: date TO «fs date», time TO «fs time». 
Xfs time» = «fs date». returns a syntax error. 
Conversely, using the following construction would deliver a runtime error: 
FIELD-SYMBOLS: «fs date» TYPE ANY, «fs time» TYPE ANY. 
m Use the expression «£s» IS ASSIGNED to find out whether the field symbol «£s» is assigned to a 
field. 
m The statement UNASSIGN «fs». sets the field symbol «£s» so that it points to nothing. The logical 
expression «£s» IS ASSIGNED is then false. 
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The CASTING Addition ERU 
AF 


ASSIGN ... dataobject TO «fs» CASTING [TYPE type]...] 


TYPES: BEGIN OF st date, 
year(4) TYPE n, 
month(2) TYPE n, 
day (2) TYPE n, 
END OF st date. 


* option 1: 
FIELD-SYMBOLS «fs» TYPE st date. 
ASSIGN sy-datum TO «fs» [ePN-unel. E date 


19991231 
* option 2: 

FIELD-SYMBOLS «fs» TYPE ANY. 

ASSIGN sy-datum TO «fs» [e uie» 42:3 st date. 


* access after casting: 
WRITE: / <fs>-year, <fs>-month, <fs>-day. 
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In the above example, note that the system field sy-datum is an elementary character-type component of 
length 8. 

You can also use type casting dynamically when you assign a data object to a field symbol. 
Example: 


PARAMETERS tabname TYPE dd021-tabname. 

DATA line(65535) TYPE c. 

FIELD-SYMBOLS «fs wa» TYPE ANY. 

ASSIGN line TO «fs wa» CASTING TYPE (tabname). 


You can now access line through «fs wa» as if this elementary data object had the same type as the 
line type of the transparent table passed using tabname. 
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References 


DATA d ref TYPE REF TO dataf 


FIELD-SYMBOLS «fs int» TYPE i. 


[eis Uae d ref TYPE i. 


ASSIGN RES: BSE) <fs_int>. 


MOVE 15 TO <fs_int>. 
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Each data reference is a pointer to a data object. You can use them to create data objects dynamically. You 
can also get references to existing data objects. Thus ABAP uses reference semantics (changes apply to 
the address) as well as value semantics, as used in field symbols (where changes apply to the data 
objects). However, in ABAP, reference semantics is restricted to assignments. 


m The statement TYPES <reftype> TYPE REF TO data. * defines a reference type to a data 
object. DATA. . . defines the corresponding reference itself. Such a reference is a data object in which 
an address can be stored. 

m You can create a data object with a specified type at runtime using the CREATE DATA reference 
TYPE type statement. This data object has no name, but the reference points to its address. You can 
also assign a type to it dynamically. 

m You can only dereference a data reference by assigning it to a field symbol using a special syntax. The 
dereferencing operator ->* in the ASSIGN statement allows you to assign the data object to which the 
reference points to a field symbol. You can then access the value of the data object. 

m The GET REFERENCE OF dataobject INTO reference statement writes the address of the 
data object (already declared) into the reference variable. 


*) data in this context is not a key word, but rather a predefined name like space or p. 
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Declaring Data Objects Dynamically: Example ERU 
AP 


PARAMETERS: pa dbtab TYPE dd021-tabname DEFAULT 'SFLIGHT'. 


DATA: d ref TYPE REF TO data. 
FIELD-SYMBOLS: «fs wa» TYPE ANY, «fs comp» TYPE ANY. 


START-OF-SELECTION. 


CREATE DATA d ref TYPE (pa dbtab). 
ASSIGN do ref-»* TO «fs wa». 


SELECT * FROM (pa dbtab) INTO «fs wa». 
DO. 
ASSIGN COMPONENT sy-index OF STRUCTURE «fs wa» TO «fs comp». 
IF sy-subrc NE 0. 
SKIP. 
EXIT. 
ENDIF. 
WRITE «fs comp». 
ENDDO. 
ENDSELECT. 
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The example can display the content of any transparent table. You can make the FROM clause of the 
SELECT statement dynamic. For the INTO clause, you will need a data object that has a line type 
compatible with that of the table being displayed. Since the name - and thus the line type of the table is 
not known until runtime, you should not create the data object until then. 

m Unlike conventional data objects, you can specify the type of a data object created at runtime 
dynamically. The TYPE addition of the CREATE DATA statement contains the name of the table, so 
that the system creates the appropriate structure. 

m The statement ASSIGN d ref->* TO «fs wa» assigns the data object to the field symbol. The 
data type of the table is inherited by the field symbol, so type casting 1s no longer necessary. 

m You can now write each data record from the SELECT statement into the compatibly typed data object 
using the field symbol «£s wa». 

m If you knew the component names, you could display the fields directly using 
WRITE «fs wa»-... 

However, you will not normally know the names of the components, nor how many of them there are. In 
this case, you must use the ASSIGN COMPONENT variant, in which the components of the structure 

«fs wa are assigned one-by-one to the field symbol «£s comp? and then displayed. When the loop 
runs out of components, the program reads the next data record. 
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Hierarchy of description classes: 
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Since the introduction of ABAP Objects, there is now a system called the RTTI concept (Run Time Type 
Information) that you can use to find out type attributes at runtime. It is based on system classes. The 
concept includes all ABAP types, and so covers all of the functions of the statements DESCRIBE FIELD 
and DESCRIBE TABLE. 

There is a description class for each type with special attributes for special type attributes. The class 
hierarchy of the description classes corresponds to the hierarchy of the types in the ABAP type system. In 
addition, the description classes for complex types, references, classes, and interfaces have special methods 
used to specify references to sub-types. Using these methods, you can navigate through a compound type to 
all of its sub-types. 

To obtain a reference to a description object of a type, you must use the static methods of the class 

CL ABAP TYPEDESCR or the navigation methods of the special description class. The description objects 
are then created from one of the subclasses. At runtime, exactly one description object exists for each type. 
The attributes of the description object contain information on the attributes of the type. 
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Declaring Types Dynamically: Example EH 
ML on 


DATA: 
descr ref TYPE REF TO cl abap structdescr, 
wa comp TYPE abap compdescr. 


START-OF-SELECTION. 


* get reference to type descripion object by widening cast: 
descr ref ?= cl abap typedescr=>describe by data( «fs wa» ). 


TOP-OF-PAGE. 
LOOP AT descr ref-»components INTO wa comp. 
WRITE wa comp-name. 
ENDLOOP. 
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We will now extend the example program, which deals with dynamic type declarations so that the system 
also displays the column names of the transparent table in the list. 

m Since we need the attributes of a structure, we first define a reference to the appropriate description 
class. Instances of this class possess a COMPONENTS attribute, which you use to describe the individual 
components of the relevant structure. This attribute 1s an internal table. Therefore you also need to define 
a line-compatible work area. 

m The (functional) method call returns the reference to the description instance of the structure. (The 
system creates the structure dynamically, which is why it is accessed through a field symbol). 

Only the abstract class CL ABAP TYPEDESCR contains the method DESCRIBE BY DATA. Its 
RETURNING parameter is typed as a reference to this superclass. However, since the actual parameter 
descr ref has the type of the subclass CL ABAP. STRUCTDESCR, we need to assign the object 
using a (widening) cast. 

m Youcan then access the attributes of the description instance in any form. The system displays the 
component names as headers. For simplicity's sake, we have omitted the formatting additions in this 
example. 

For more information and syntax examples, refer to the online documentation, either under the keyword 
RTTI or the class CL ABAP. TYPEDESCR. 


(C) SAP AG BC402 10 


31.11 


Dynamic Programming: Unit Summary 


You are now able to: 


€ Use dynamic attributes in suitable ABAP 
statements 


Use field symbols 
Use references 


Use RTTI classes 
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Appendix A cap d 
Mz om 


This section contains supplementary material to be used as 
reference 


@ This material is not part of the standard course 


€ Therefore, the instructor might not cover this during the 
course presentation 
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P» System Architecture 


Internal Tables 
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The Three-Tier Client/Server Architecture of the R/3 Ed 
System AP 


Presentation 
speed | = | | 
layer ‘SAP GUI ‘SAP GUI; ‘SAP GUI ‘SAP GUI 


uM Dispatcher 
Application 


server 
layer 


Work Work Work Work 
process | |process process |process 


Database i |j] | 
process: 


© SAP AG 1999 


The R/3 System is based on a client/server architecture with the three tiers database server, application 
server, and presentation server. It allows a large number of users with inexpensive and relatively slow 
machines to take advantage of a smaller number of faster, expensive application servers by occupying 
work processes on them. Each work process on an application server is assigned to a work process on 
the (expensive, even more powerful) database server. 

User dispatching is the process by which the individual clients at presentation server level are assigned to a 
work process for a particular length of time. The work process in turn is linked to a work process in the 
database. Once the user input from a dialog step has been processed, the user and program context is 
"rolled out" of the work process so that the work process can be used for another dialog step from 
another user while the first user is making entries on the next screen. This makes the best possible use of 
the resources available on the application server. 

The three-tier architecture makes the system easily scalable. To add extra users, you merely have to install 
more inexpensive presentation servers. You can also increase the efficiency of the whole system by 
adding extra application servers with their associated work processes. 
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Structure of a Work Process d 


Screen processor 


Database interface 
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The work processes in the middle layer - often called the application server - are software components that 
are responsible for processing dialog steps. They are implemented as "virtual machines". This ensures 
that ABAP programs can run independently of the hardware platform on which the R/3 System is 
installed. 

Work processes contain other software components that are responsible for various tasks within a dialog 
step: 

m Screen processor 
The screen processor is responsible for communication between the SAP GUI and the work process (via 
the dispatcher). It processes the screen flow logic and passes field contents to the processing logic in the 
program. 

m ABAP processor 
The ABAP processor executes the processing logic in the ABAP program and communicates with the 
database interface. The screen processor tells the ABAP processor which part of the program (module) 
needs to be processed (according to the screen flow logic). 

m Database interface 
The database interface is responsible for the communication with the database. It allows access to tables 
and Repository objects (including ABAP Dictionary objects), controls transaction execution (COMMIT 
and ROLLBACK), and administers the table buffer on the application server. 
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Appendix A: Strings 


System Architecture 
D 


Internal Tables 
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Overview: Processing Strings cap d 
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You can use the following statements to process strings in ABAP: 


m SEARCH To search in a string. Note that there are special comparison operators for strings, which 
you can use in logical expressions, within a query (IF), to search more flexibly for character sequences 


in a string. For more information, see the keyword documentation for I 


REPLACE To replace the first occurrence of a string 
TRANSLATETO replace all specified characters 
SHIFT To shift a character at a time 

CONDENSE To remove spaces 

CONCATENATE To chain two or more strings together 
OVERLAY To overlay two strings 

SPLIT To split a string 


F. 


In all string operations, the operands are treated like type C fields, regardless of their actual field type. They 


are not converted. 


m All ofthe statements, apart from TRANSLATE and CONDENSE, set the system field SY-SUBRC. 
SEARCH also fills the system field SY-FDPOS with the offset of the beginning of the string found. 


m All of the statements apart from SEARCH are case-sensitive. 


m To find out the occupied length of a string, use the standard function STRLEN () . 
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Searching in a String d 
Mz om 


SEARCH field FOR searchstring. 
SEARCH itab FOR searchstring. 


DATA: 
str(100) TYPE c 
VALUE 'Abap object ' 


'ABAP'. 
'ObjecT'. 
Ue UE 
'OBj*'. 
'xect'. 
p.d 
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The system searches the field field for the string searchstring. The search string can have the 

following form: 

'str' String (trailing blanks are ignored) 

'.str.' Any string between the periods 

(spaces are included in the search.) 

m 'str*' A string beginning with str including str itself 

m '*str' A string ending with str including str itself 

The offset of the found string is placed in the system field sy-fdpos. If the search string is not found, 
sy-fdpos contains the value 0 and sy-subrc contains the value 4. 

You can use SEARCH itab instead of SEARCH field. The system then searches for searchstring 
within the internal table itab. In this variant, the system sets the system field sy-subrc to the index 
of the line containing the search string, as well as filling sy-subrc and sy-fdpos. 
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Splitting and Joining Strings ER 


CONCATENATE 'AB' 'AP' peel f. 


OVERLAY gv TH E ABB] PA] 
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m SPLIT field AT sep INTO f1 ... fn|TABLE itab. 
field is split wherever sep occurs, and placed in the fields £1 ... fn or into the lines of an 
internal table itab.t. 

B CONCATENATE f1 ... fn INTO field [SEPARATED BY sep]. 
The fields £1 ... £n are joined together and placed in field. Trailing spaces are ignored in the 
component fields. You can use the SEPARATED BY sep addition to separate £1 ... £n by the contents 
of sep. 

m OVERLAY f1 WITH f2 [ONLY str]. 
£2 overlays £1 at all positions where £1 contains a space or one of the characters in str. 

Note: 


See also Accessing Parts of Fields. 
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Changing Strings d 
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B REPLACE strl WITH str2 INTO field. 
Replaces the first occurrence of st r1 in field with str2. 
m TRANSLATE field USING str. 
Each character in field is replaced using the substitution rule in str. str contains pairs of letters, 
where the first letter of each pair 1s replaced by the second letter - in the above example: 
TRANSLATE ... USING 'AB'. 
B TRANSLATE field TO UPPER|LOWER CASE. 
Replaces all lowercase letters in field with uppercase (or vice versa). 
m SHIFT field [var] [RIGHT] [CIRCULAR]. 
var can be one of the following: 
BY n PLACES Shifts field by n characters 
UP TO strShifts field up to the beginning of str 
The additions have the following effect: 
RIGHT Shifts to the right 
CIRCULAR Shifts to the right - characters shifted off the right-hand edge of the field reappear on the 
left. 
m CONDENSE «field» [NO-GAPS]. 
Consecutive spaces are replaced by a single space or are deleted. 
Note: 
You can delete leading or trailing spaces using 
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SHIFT 
SHIFT 


field LEFT DELETING LEADING SPACE or 
field RIGHT DELETING TRAILING space. 
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Accessing Parts of Fields Ep 
SAP 


statement field+toff (len) 


REPORT 


PARAMETERS: 
pa str(40) LOWER CASE, 
pa pos TYPE i, 
pa len TYPE 1. 


WRITE pa str). 


19991231t 


9000) 
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In any statement that operates on a character-type field, you can address part of the field or structure by 
specifying a starting position and a number of characters. If the field lengths are different, the system 
either truncates the target or fills it with initial values. The source and target fields must have the type x, 
c,n,d, t, string, or xstring. 

You can also use structures. 

Example 


MOVE field ltoff 1(len 1) TO field 2+off 2(len 2). 


This statements assigns len_1 characters of field field 1 starting at offset <offl> to len 2 
characters of field 2 starting at offset off 2. 

Caution: 
Under Unicode *) only fields with type c, n, d, t, or string are suitable for partial access. In other 
cases, you should use field symbols with casting. 


*) Language- and culture-independent character set. 
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Appendix A: Internal Tables 


System Architecture 


D Internal Tables 
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32.12 


Inserting a Single Record by Summation ER 
SAP 
Q)ue key 


* fill workarea 'wa' 
CAAH wa BeNpye)] itab.. 


wa COLLECT 


abc 


-0> 
-0> 
-©> 


Time 
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m The COLLECT wa INTO itab statement allows you to summate the contents of the internal table 

itab. This process uses the table key. It works as follows: 

* The runtime system checks whether or not there is a record in the internal table with the same key 
values as the line in wa. 

* [f not, it inserts the new line into the internal table using the key (similar to INSERT wa INTO 
TABLE itab.). 

e [fthere is a record with the same key values as the line in wa, the system adds the contents of the 
numeric non-key fields to the values in the line of the table. 

* For more details, refer to the keyword documentation for the COLLECT statement. 
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Appending a Single Record Sp 


mm» Index Qum Key 


APPEND 


Special case: Create ranked list 


INDIANS) wa He) i 
SORTED BY 


For STANDARD tables only 
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m In STANDARD tables, you can add lines to the internal table itab using APPEND wa TO itab. 
instead of INSERT. The new line is then added to the end of the internal table. (That is, the new line is 
given the highest current line index). 

m Syntactically, you can also apply the APPEND statement to SORTED tables. 

However, note that the runtime system only performs this operation without a runtime statement if the 
line added to the end of the table (that is, given the highest line index) does not violate the table sorting. 
Otherwise, a runtime error occurs. 

m Youcan append empty lines to STANDARD tables using the APPEND INITIAL LINE TO itab 
statement. Again, note that you can add empty lines to SORTED tables, provided you do not violate the 
sort order. 

W Youcan create a ranked list in a STANDARD table using APPEND INITIAL LINE TO itab 
SORTED BY <f>. The data in wa is sorted into the internal table i tab according to the field f. For 
more details, refer to the keyword documentation for the APPEND statement. 
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35Function group: BC402 ALV LISTS 


35.2Global data 


DATA: 
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* screen auxiliary 
ok code TYPE sy-ucomm, 
* control auxiliary 


g repid TYPE sy-repid. " 


35.3LOAD-OF-PROGRAM 
LOAD-OF- PROGRAM. 


* move program name to g repid 


g repid - sy-repid. 


35.4Screen 100: Flow logic 


PROCESS BEFORE OUTPUT. 


MODULE status 0100. 


MODULE clear ok code. 


PROCESS AFTER INPUT. 


MODULE user command 0100. 


35.5Screen 100: Screen elements 


1. Callthe command field ok. code. 


" commmand field 


program name 


2. Create the Custom Control screen element. The toolbar in the Layout screen of the Screen Painter contains a 
pushbutton for this purpose. (It is similar to the pushbutton used to draw subscreen areas). Make your Control as 


big as possible and set the Resize attribute. 


35.6PBO modules 

*& €———————————————— ———r—— 
*& Module status 0100 OUTPUT 

* G&-- ccc cco —— 
* GUI settings 


MODULE status 0100 OUTPUT. 
SET PF-STATUS 'NORM 0100'. 
'NORM 0100'. 
" status 0100 


SET TITLEBAR 
ENDMODULE. 


OUTPUT 
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*& Module clear ok code OUTPUT 

*& * 
* clear ok code field before you enter/display the screen 
* * 


MODULE clear ok code OUTPUT. 


clear ok code. 


ENDMODULE. " clear ok code OUTPUT 

35.7PAI modules 

*& * 
*& Module user command 0100  INPUT 

* & * 
* Implementation of user commands of type ' ' for screen 100 
* * 


MODULE user command 0100 INPUT. 


CASE ok code. 


WHEN 'BACK' OR 'CANCEL' OR 'EXIT'. 


LEAVE TO SCREEN 0. 


E] 
z 
J 
Q 
D 
tn 
E 


[xj 
Z 


DMODULE. " user command 0100 INPUT 


BACK y 4 Back 
CANCEL m. Cancel 
EXIT roy End 
35.9GUI title 


NORM_0100 Output screen 


36Function module: BC402 ALV LIST OUTPUT 


FUNCTION bc402 alv list output 


x" 


(C) SAP AG BC402 


*"*k"Tocal interface: 


*" IMPORTING 
x" VALUE(IT LIST1) TYPE BC402 T FLIGHTS COLOR 
x" VALUE(IT LIST2) TYPE BC402 T FLIGHTS COLOR OPTIONAL 


*" EXCEPTIONS 


AT CONTROL ERROR 


* local data objects 


DATA: 
* needed for list output 
wa TYPE bc402 s flight color, 
* control reference variables 


E 


ref custom TYP 


E 


REF TO cl gui custom container, 


< 


ref splitter TYPE REF TO cl gui splitter container, 


ref top cell TYPE REF TO cl gui container, 


ref bot cell TYPE REF TO cl gui container, 


ref alvl TYPE REF TO cl gui alv grid, 
ref alv2 TYPE REF TO cl gui alv grid, 
X ALV auxiliaries 
* - layout structures: title and color codes 
wa layol TYPE lvc s layo, 
wa layo2 TYPE lvc s layo, 
# - field catalogs: change column properties 
it fcat TYPE ive t. feat, 
wa fcat LIKE LINE OF it fcat, 
+ function module auxiliary 
mode TYPE i. 
CONSTANTS: 
c mode 1 TYPE i VALUE 1, 
c mode 2 TYPE i VALUE 2, 


c tab struc name TYPE dd021-tabname 


VALUE 'BC402 S FLIGHT COLOR'. 


KKKKKKKKK ck ckckckckckck ck ck ck ck ckck ck ck ck ck ck ck ck ck ck ck ckck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck k ck k kk kk 


ES adjust field catalog for both ALV controls: 
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* - disable the display of column 'COLOR' containing 


X the color codes 
p db db, di, dir dir di dir dir div di» di dir, div div di, di, dir, div di» di», di, div div di», di dir, div di» div, di», dir, div, di», di», di, div di» di» div, dir. di» dip, di, dir, div div, di», di», dir, di, di», di», di, div di» di» di, dir dir di» dir di. d 


€ 


wa fcat-fieldname 


'COLOR'. 


X 


wa fcat-tech = 'X'. 


INSERT wa fcat INTO TABLE it fcat. 


CC Ck kk kk ck ck ckck ck ck ckck ck ck ckck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck k k k kkkk* 


* map color codes to ALV color codes 
* x -> Cx10, x= color code defined in type pool COL 


KKKKKKKKK ck ckckckck ck ck ckck ck ck ckck ckck ckck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck k k kk kk 


LOOP AT it listl INTO wa. 


CONCATENATE 'C' wa-color(1) '10' INTO wa-color. 


MODIFY it listl FROM wa. 
ENDLOOP. 


KKKKKKKKKK ckck kck ckck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ckck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck k k kk kkk* 


x adjust layout structure for first ALV: 


# - name of column containing color codes of list lines 
K - list heading 


kkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkxkkxkxkkxxk*xxk 


wa layol-info fname = 'COLOR'. 


wa layol-grid title text-001. " «-- flight list 


K AC Ck ck kk ckckckck ckckckck ckckckck ckck ck ck ck ck ck ck ck ck ckck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck k k kk kk 


* set display mode 


de mode c mode 1: only one list displayed 


x mode c mode 2: two lists are displayed 


KKKKKKKKKKKKKKK ck ck ck ck ck ckck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck k k k k KEKE 


IF it list2 IS INITIAL. 


mode = c mode I. 
ELSE 
mode = c mode 2. 


ES map color codes for second table 


LOOP AT it_list2 INTO wa. 


CONCATENATE 'C' wa-color(1) '10' INTO wa-color. 


MODIFY it list2 FROM wa. 
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ENDLOOP. 


A adjust layout structure for second ALV 


wa layo2-info fname = 'COLOR'. 


wa layo2-grid title text-002. " «-- duplicates 


ENDIF. 


KKKKKKK ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck XX XX 


* CONT A NER HANDLING 


CkCkCKkCkCkCkC ck kk ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck XX XX 


IF ref custom IS INITIAL. 


CREATE OBJECT ref custom 


EXPORTING 


parent = cl gui custom container=>screen0 
container name = 'CONTROL AREA1' 
repid = g repid 
dynnr = '0100' 
EXCEPTIONS 
others = 6 


IF sy-subrc <> 0. 


I 


MESSAGE a031(bc402) RAISING control error. 


ENDIF. 
ENDIF. 
CASE mode. 
WHEN c mode 1. " only one list requested 
ref top cell - ref custom. 
WHEN c mode 2. " two lists are requested 


CREATE OBJECT ref splitter 


EXPORTING 


parent = ref custom 

rows = 2 

columns = 1 
EXCEPTIONS 
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others 


IF sy-subrc <> 0. 


MESSAGE a031 (bc402) 


I 


ENDIF. 


raising control error. 


ref top cell = ref splitter-»get container( row = 1 
column = 1 ). 
ref bot cell = ref splitter-»get container( row = 2 
column = 1 ). 
i adjust cell spacing 


CA] 


b METHOD ref splitter->set row mode 


EXPORTING 


mode 


EXCEPTIONS 


OTHERS 


I 


ENDIF. 


LL METHOD ref splitter-»set row height 


IF sy-subrc <> 0. 
MESSAGE a033(bc402) 


ref splitter->mode relative 


raising control error. 


EXPORTING 


id 
height 


EXCEPTIONS 


OTHERS 


IF sy-subrc <> 0. 


MESSAGE a033 (bc402) 


I 


ENDIF. 


ENDCASE. 


E] 


raising control error. 


RS 
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* ALV 


KKKKKK Ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck ck XX XX 


HANDLING 


IF ref alvl IS INITIAL. 


CREATE 


OBJECT ref alvl 


EXPORTING 


i parent = ref top cell 
EXCEPTIONS 
others = 5 


t 


NDIF. 


CALL M 


IF sy-subrc <> 0. 


MESSAGE a032(bc402) raising control error. 


I 


ETHOD ref alvl->set table for first display 


EXPO] 


i structure name 


RTING 


c tab struc name 


is layout - wa layol 
CHANGING 

it outtab = it listl 

it fieldcatalog = dt feat 
EXCEPTIONS 

OTHERS = 4 


IF sy-subre <> 0. 


MESSAGE a033(bc402) raising control error. 


ENDIF. 


ELSE. 


CALL M 


I 


ETHOD ref alvl->refresh table display. 


IF sy-subrc <> 0. 


I 


MESSAGE a033(bc402) raising control error. 


ENDIF. 


tz 
zi 


DIF. 
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IF mode - c mode 2. 
nd create second ALV if necessary and link to bottom cell 


IF ref alv2 IS INITIAL. 


CREATE OBJECT ref alv2 
EXPORTING 


i parent = ref bot cell 
EXCEPTIONS 
others =D 


IF sy-subrc <> 0. 
MESSAGE a032(bc402) raising control error. 


tz 


NDIF. 


CALL METHOD ref alv2->set table for first display 


EXPORTING 


i structure name — c tab struc name 

is layout - wa layo2 
CHANGING 

it outtab = it list2 

it fieldcatalog = it fcat 
EXCEPTIONS 

OTHERS = 4 


IF sy-subrc <> 0. 


MESSAGE a033(bc402) raising control error. 


ENDIF. 


ELSE. 


CALL METHOD ref alv2-»refresh table display. 


IF sy-subrc <> 0. 


MESSAGE a033(bc402) raising control error. 


ENDIF. 


ENDIF. 


E] 
z 
UO 
H 
A] 
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CALL SCREEN 0100. 


* free control and proxy object resources 


CASE mode. 


WHEN c mode 1. 
* free: - ALVI 


x - custom container 


CALL METHOD ref alvl->free. 


CALL METHOD ref custom->free. 


CLEAR: ref alvl, ref custom. 


WHEN c mode 2. 


x free: - ALV1, ALV2 
* - Splitter container, custom container 
CALL METHOD ref alvl->free. 
CALL METHOD ref alv2-»free. 
CALL METHOD ref splitter->free. 
CALL METHOD ref custom->free. 
CLEAR: ref alvl, ref alv2, ref splitter, ref custom. 
ENDCASE. 


ENDFUNCTION. 


37Global structure: BC402 S FLIGHT COLOR 


Component Type Length Dec.Pl. Short text 

COLOR CHAR 4 0 Color value for list display 
CARRID CHAR 3 0 Short text for airline 
CONNID NUMC 4 0 Flight connection code 
FLDATE DATS 8 0 Flight date 

PRICE CURR 5 2 Flight price 

CURRENCY CUKY 5 0 Local currency for airline 
PLANETYPE CHAR 0 0 Plane type 

SEATSMAX INT4 10 0 Total number of seats 
SEATSOCC INT4 10 0 Occupied seats 


38Dialog messages from the message class BC402 


Message Message short text 


031 Error creating container 
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[032 |Error creating ALV Control 


033 Error calling method 
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